sub insert_after_first {
    return if @_ < 3;
    my $front = splice(@_, 2, 1);
    return ( $front,
             $front eq $_[0]
             ? @_[1..$#_]
             : &insert_after_first
	   );
}