I, too, am guessing a bit about what you want and about just what your input data may look like, but here's another example of what some of the other monks are talking about:

c:\@Work\Perl>perl -wMstrict -MData::Dump -le
"my %HoPwy = (
   foo => [ qw(abe lincoln  john doe  freddy mac) ],
   bar => [ qw(homer simpson  krazy kat) ],
   );
 dd \%HoPwy;
 ;;
 for my $pwy (keys %HoPwy){
   my $pwy_arrayref = $HoPwy{$pwy};
   for (my $i = 0, my $j = 1;  $i < $#$pwy_arrayref;  $i += 2, $j += 2
+) {
     print qq{'$pwy': '$pwy_arrayref->[$i]', '$pwy_arrayref->[$j]'};
     }
   }
"
{
  bar => ["homer", "simpson", "krazy", "kat"],
  foo => ["abe", "lincoln", "john", "doe", "freddy", "mac"],
}

'bar': 'homer', 'simpson'
'bar': 'krazy', 'kat'
'foo': 'abe', 'lincoln'
'foo': 'john', 'doe'
'foo': 'freddy', 'mac'
[download]