PERL - Calcul colonne de deux fichiers

$ head a1 a2
==> a1 <==
Machine1 01 100104 155076
Machine2 01 100105 153820
Machine2 01 100106 187736
Machine2 01 100107 180004
Machine3 01 100108 157936

==> a2 <==
Machine1 01 100104 175820
Machine2 01 100105 201532
Machine2 01 100106 458213
Machine2 01 100107 123650
Machine3 01 100108 136258 
$ 
$ cat a2 a1 |awk '{if(y=x[$1,$3])printf("%s %s %s %-8.2f\n", $1, $2, $3, (y/$4)*100);else x[$1,$3]=$4}'
Machine1 01 100104 113.38  
Machine2 01 100105 131.02  
Machine2 01 100106 244.07  
Machine2 01 100107 68.69   
Machine3 01 100108 86.27   
$

$ perl -e "system('cat a2 a1 |awk \'{if(y=x[\$1,\$3])printf(\"%s %s %s %-8.2f\n\", \$1, \$2, \$3, (y/\$4)*100);else x[\$1,\$3]=\$4}\'')"
Machine1 01 100104 113.38  
Machine2 01 100105 131.02  
Machine2 01 100106 244.07  
Machine2 01 100107 68.69   
Machine3 01 100108 86.27   
$ 
$ 

open(FILE, "<bil1.txt");
while(<FILE>){
	push(@lignes,$_);
}
close(FILE);

$/ = "66210-34" ;
open ( FILE , "<bil2.txt" );
my $fic2 = <FILE> ;
close ( FILE ) ; 
$/ = "\n";


for(@lignes){
	$fic1 = $_;
	if ($fic1 =~ /(Machine\d* \d*) (\d*) (\d*)/){
		$reste = $1;
		$id1 = $2;
		$value1 = $3;
		
		if ($fic2 =~ /Machine\d* \d* $id1 (\d*)/){
			$value2 = $1;
			$result = $value2 / $value1;
			$result *= 100;
			print "$reste $id1 $result\n";
		}
	}
}