my $tape_count = scalar @tape_imports; foreach (@tape_imports) { splice (@H99tapes,0,$tape_count,@H99tapes) }