1 2 3 4 5
my $j = "12,11,10,9"; my $k = join ',' , sort {$a <=> $b} split /,/ , $j; print $j,"\n"; print $k;
1 2
12,11,10,9 9,10,11,12