Select Code to Download

    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) = @_;
...
        }
    }