Select Code to Download

for (0..$#ids) {
    my $id=$ids[$_];
...
      "$id => $hash{$id} => $extra[$_]\n" :
      "$id\t$extra[$_]\n";
}

for (@ids) {
    my ($id,$extra)=@$_;
...
      "$id => $hash{$id} => $extra\n" :
      "$id\t$extra\n";
}