foreach $k(sort {$match{$a}<=>$match{$b}} keys %match}
                                                     ^
foreach $k(sort {$match{$a}<=>$match{$b}} keys %match) { }