my @sortedKeys = 
    map {$_->[1]}
    sort {$a->[0] cmp $b->[0]}
    map {[function($_), $_]} keys %hash;