my @libs = qw{1 2 3 4};

foreach my $lib (@libs) {
   my $file = $lib{'file'};
   print "reading $file\n";
}

##</code><code>##

reading 
reading 
reading 
reading 

##</code><code>##

Global symbol "%lib" requires explicit package name at ... line 7.
Execution of ... aborted due to compilation errors.