sub insert_after_first {
    return if @_ < 3;
    my ( $elem, $new, $front ) = splice @_, 0, 3;
    return ( $front,
             $front eq $elem
             ? ($new, @_ )
             : insert_after_first( $elem, $new, @_ )
           );
}