Bubble Sort Perl
12345678910
my @array = ( 5, 6, 3, 1, 7, 3, 2, 9, 10, 4 );
for my $i ( reverse 1 .. $#array ) {
for my $k ( 0 .. $i - 1 ) {
@array[ $k, $k + 1 ] = @array[ $k + 1, $k ]
if $array[$k] > $array[ $k + 1 ];
}
}
print "@array\n";
Perl
INFO