my @A = qw{H1 H2 H3 H4 H5};
my @B = 1 .. 23;