Select Code to Download

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

dd %h;

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