Select Code to Download

my @data = <DATA>;

...
   i_noop  =>
      sub { my %heap; foreach (@data) { i_noop( \%heap, $_) } },
});