I think it actually gets easier if you try to be fair since a fair method would never select from an empty array. So you'd get:

my @seq = map rand(@t1+@t2) < @t1 ? shift @t1 : shift @t2, 1..@t1+@t2;
[download]