oh yes the reverse if for sure the best trick, but you can eliminate entirely the while loop using map instead.

#! perl
use strict;
use warnings;
use Data::Dump;


my @A = qw ( H1 H2 H3 H4);
my @B = qw (1 2 3 4 5 6 7 8 9 10);

my %h;

map {push @{$h{ $_ }},grep {defined} shift @B} (@A, reverse @A) x int 
+($#B / $#A) ;

dd %h;
[download]

L*
UPDATE: with help of choroba i realized i had no need of int nor of so much repetitons:

   map {push @{$h{ $_ }}, shift @B} (@A, reverse @A) x ($#B / $#A /2) 
+;  ##No it is still not good..
[download]

L*