sub orcish {       
    my %c;
    sort {
        $c{$a} or ( $c{$a} ) = $a =~ /foo(\d+)\.tla/;
        $c{$b} or ( $c{$b} ) = $b =~ /foo(\d+)\.tla/;
        $c{$a} <=> $c{$b};
    } @_;
}