Select Code to Download

my %hash
for my $file (glob("*.*")) {
...
        $hash{$root} = $ext;
    }
}

$hash{$root} = $ext if (not defined $hash{$root}) or $ext > $hash{$roo
+t};