here the Solution:

my %hash = (
            1    => [1, One],
            2    => [2, Two],
            3    => [3, Three],
            4    => [4, Four],
            5    => [5, Five],
            6    => [6, Six],
            12    => [12, Twelve],
           );


my @sort;
for my $key (sort (keys %hash)) {
   push @sort, "$hash{$key}[0]::$hash{$key}[1]";
}

    my @new = sort { $a <=> $b } @sort;
    
for (@new) {
   my ($int, $alpha) = split(/::/, $_);
   print "Integer is: $int -- Alpha is: $alpha\n";
}
[download]

regards,
Franklin