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;
            }
        }
    }