Select Code to Download

use strict;
use warnings;
...
foreach my $o (@outer) {
    print $o, "\n";
}

First
one
...
oneHIII
twoHIII
threeHIII

foreach my $o (@outer) {
    $o .= 'HIII';
    print $o, "\n";
}