うごくかな？
sub sort{
　local (*a)=@_;
　for(my $i=0;$i<$#a;$i++) {
　　for(my $j=$#a;$j>$i;$j--) {
　　　if($a[$j]<$a[$j-1]) {
　　　　($a[$i],$a[$j])=($a[$j],$a[$i])
　　　}
　　}
　}
}