@array = (1, 10, 5, 100, 12, 3);
for $i(0..$#array-1){
　for $j($i+1..$#array){
　　if($array[$i] > $array[$j]){
　　　$tmp = $array[$i];
　　　$array[$i] = $array[$j];
　　　$array[$j] = $tmp;
　　}
　}
}
foreach(@array) { print "$_\n"; }

やたー！Perlでソートつくれたよ！(^^)v
こうした方がもっと簡単に書けるよってアドバイスがあったらきぼんです。