Select Code to Download

my %sortfkt = (
        "item"          => \&numerical,
...
        "age"           => \&numerical,
        "height"        => \&numerical,
        );

sub string {
    return $_[0] cmp $_[1];
...
sub numerical {
    return $_[0] <=> $_[1];
}

sort { &{$sortfkt{$orderby}}($hash{$a}{$orderby}, $hash{$b}{$orderby})
+ } keys %hash

#!/usr/bin/perl

...
sub numerical {
    return $_[0] <=> $_[1];
}