use strict; use warnings; use 5.010; my @array = (4,3,1,9); my $temp; print "Array antes de ordenar \n"; print @array; print "\n"; for ( my $i = 1; $i < 4; $i++) { for ( my $j = 0; $j < 3; $j++) { if($array[$j] < $array[$j + 1]) { $temp = $array[$j]; $array[$j] = $array[$j + 1]; $array[$j + 1] = $temp; } } } print "Array después de ordenar\n"; print @array; print "\n";