Select Code to Download

tie @ary, "My::Class", "some", "el", "ems";
for (@ary) {
   some_code($_);
}

my @arr1 = (0) x 4;
my $n = 0;
...
__END__
Output
3 2 1 0