Select Code to Download

use strict;
use warnings;
...
foreach my $i (@a) {
    print "$i\n";
}

use strict;
use warnings;
...
foreach my $i (@{$href->{list}}) {
    print "$i\n";
}