use List::Util 'shuffle';
@union=shuffle @union;
@union=sort { $a->[0] cmp $b->[0] } @union;