Select Code to Download

my %count;
while (...) {
...
 #
 push @{$count{$field1}}, $field2;
}

my %count;
while (...) {
...
    $count{$field1} = $field2; # normal assignment
  }
}

print Dumper(\%count);