#!/usr/bin/perl



open(LISTE,"list.txt");

while ($line=<LISTE>) {
    @val = (split(' ',$line),@val);
    push(@res,$val[1]);
}
close(LISTE);
print $res[3];
for ($i=40; $i<160; $i++) {
    $pass = $res[$i+2];
    print `unrar e -p$pass $i.rar`;


}