my $a_ref = [qw/A B C D E F G H/];
my $b_ref = [qw/7 6 5 4 3 2 1 0/];
my @KEY;

splice( @KEY, @KEY, 0, $a_ref->[$_], $b_ref->[$_] ) for 0 .. $#{$a_ref};