    my $j = "12,11,10,9";
    my @k = split ',', $j;
    @k = sort {$a <=> $b} @k;
    my $k = join ',' , @k; 


print $j,"\n";
print $k;