Select Code to Download

use Data::Dumper;

...

print "\@array_items_weight is now... ";
print Dumper \@array_items_weight;

my @combined = pairwise { [$a, $b] } @array_items, @array_items_weight
+;