Select Code to Download

#!/usr/bin/perl
use warnings;
...
while (my ($index, $value) = each @array) {
    say "$index $value";     # 0 abc, 1 def
}