for my $i (0 .. $#A) {
    $h{ $A[$i] } = [ @B[ grep { my $m = $_ % (2 * @A);
                                grep $_ == $m, $i, 2 * @A - $i - 1
                              } 0 .. $#B ] ];
}