if ($basename_v =~ m/_en/) {
     @english = ($basename, $size, $date)
     }

##</code><code>##

%Files = (
     english => ["file1", "size1", "date1"],
     spanish => ["file2", "size2", "date2"],
     );

##</code><code>##

for $language ( keys @Files ) {
     print "$language: @{ $Files{$language} }\n";
     }