Help for this page
my @arr = qw(a b c d c e f); insert_after_first(\@arr, "c", "x");
a b c x d c e f
sub insert_after_first { my($arr, $element, $insert) = @_; ... } }