Select Code to Download

LOOP:
for (0 .. $#array) {
...
        last LOOP;
    }
}

my %hash;

$hash{array[$_]} = $_ for 0 .. $#array;

push @{ $hash{array[$_]} } ,  $_ for 0 .. $#array;