Help for this page

Select Code to Download

Select or download this

use warnings;
use strict;
...
#dd \%filelist; # Debug
my @filelist = sort map {$_->[0]} values %filelist;
#dd \@filelist; # Debug