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