Help for this page
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;