sub insert_after_first
{
    my ( $a_ref, $afterthis, $insertme ) = @_;
    my $pos = index( join( '', @$a_ref ), $afterthis );
    splice( @$a_ref, $pos+1, 0, $insertme ) if $pos >= 0;
}