1 for (my $i = 0; $i < @libs; $i++) {
2    my $file = $libs[$i]{'file'};
3    print "reading $file\n";
4 }
   
1 foreach my $lib (@libs) {
2    my $file = $lib{'file'};
3    print "reading $file\n";
4 }