sub insert_after_first( $elem, $new, *@data ) {
    return if @data.elems < 1;
    my $front = @data.shift;
    return ( $front, $new, *@data ) if $front ~~ $new;
    return ( $front, insert_after_first( $elem, $new, *@data ) );
}