Help for this page
use 5.020; ... @files = sort { $last_modified{ $a } <=> $last_modified{ $b } } @files +; say $files[0];