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