Select Code to Download

my @foo = qw/a b c d e f g/;
my $sub = 'h';
...
# Tacks on h when it hits the d, then
# i for the h, j for the i, and k for the j
# yielding abcdefghijk

my @foo = qw/a b c d e f g/;
my $sub = 'h';
...
    push @foo, @extras;
}
print for @foo;