Help for this page
if ($basename_v =~ m/_en/) { @english = ($basename, $size, $date) }
%Files = ( english => ["file1", "size1", "date1"], spanish => ["file2", "size2", "date2"], );
for $language ( keys @Files ) { print "$language: @{ $Files{$language} }\n"; }