#!/usr/bin/perl



$str="1a 4d 2c 5f 9b 10k";

@str=split(" ",$str);

$newstr=join(" ",sort mysort @str);

print $newstr;



sub mysort{

    $a<=>$b;

    }

#!/usr/bin/perl



$str="1a 4d 2c 5f 9b 10k";

@str=split(" ",$str);

@newstr=sort mysort @str;



foreach $str (@str){

         $num=$str+0;

         $hash{$num}=$str;

         }



for ($n=1;$n<=$newstr[-1];$n++){

      if($hash{$n}){

          print $hash{$n}.' ';

      }else{

          print "null ";

      }

}





sub mysort{

    $a<=>$b;

    }