#!/usr/bin/perl
$\="\n";
my %hash = (
            1    => "One",
            2    => "Two",
            3    => "Three",
            4    => "Four",
            5    => "Five",
            6    => "Six",
            12   => "Twelve",
           );
   print "Integer is: $_ -- Alpha is: $hash{$_}" for (sort {$a <=> $b} keys %hash)