Help for this page
my %hash for my $file (glob("*.*")) { ... $hash{$root} = $ext; } }
$hash{$root} = $ext if (not defined $hash{$root}) or $ext > $hash{$roo +t};