##
a b c x d c e f
##
##
sub insert_after_first {
my($arr, $element, $insert) = @_;
for(my $idx=0; $idx < @$arr; $idx++) {
if($arr->[$idx] eq $element) {
splice @$arr, $idx+1, 0, $insert;
return @$arr;
}
}
}