{
   my @file;
   my $fh;
   foreach my $file (@files) {
       open($fh, "<", $file);
       @data = <$fh>;
       close($fh);
       undef $fh;   # Frees $fh's content.
       undef @data; # Frees @data's content.
   }
}