Select Code to Download

my $tmp;
for my $i (0..$#a-1) {
...
    }

}

my $tmp;
my $swapped;
...
    }
    last unless $swapped;
}