Check out the main loop:
bubble(\@raw_data) while !isSorted(\@raw_data); [download]
In reply to Re: Re:(4) bubble sort in perl by RMGir in thread bubble sort in perl by Anonymous Monk