Select Code to Download

for my $key (sort keys %main::) {
  next unless *{$main::{$key}}{ARRAY};
  print "$key\n";
}

#!/usr/bin/perl
use strict;
...
splice(@$, 0, 1, "hello", "world") for @list;

print "@$\n";