my @list = ( '1,cat', '2,dog', '22,mouse', '11,eel', '001,elk', '13,mink');

my @sorted = sort { $a <=> $b } @list;