Select Code to Download

#!/usr/bin/perl

...
    }
    say $elem;
}

my $i = 0;
for my $elem ( @array ){
...
    say $elem;
    $i++;
}