#!/usr/bin/perl 
use strict; 
use warnings; 
 
my @a = (12, 3, 56, 1, 44); 
 
@a = bubble_sort(@a); 
 
for my $int (@a) { 
	print $int, "\n";	 
} 
 
sub bubble_sort { 
	my @array = @_; 
	my $swapped; 
	 
	do { 
		$swapped = 0; # $swapped is now false 
		for my $i (1 .. $#array) { 
			if ($array[$i - 1] > $array[$i]) { 
				@array[$i-1, $i] = @array[$i, $i-1]; 
				$swapped = 1; # set $swapped to true 
			} 
		}	 
	} while ($swapped); # ... while $swapped is true 
	return @array; 
}