Select Code to Download

sub comb_sort (&\@) {
    my $code_ref = shift;
...
        last if $gap == 1 and $swapped == 0;
    }
}

#!/usr/bin/perl
use strict;
...

comb_sort {$a<=>$b} @v;
print "@v";