%output_pts =(7=>"raja",2=>"ananth",3=>"guru",4=>"uvaaraj");
@ptkeys = keys %output_pts;
@sortedkeys = sort numeric_sort @ptkeys;
print "\n@ptkeys";
sub numeric_sort {
print " $a,$b ";
$a cmp $b; }