Select Code to Download

my ($key, $msg, $ref);   # stick with the naming convention ;-)
foreach $key (keys %hash) {
    $ref = \$hash{$key};
...
           print RPT "$ref->{packet_id}\t$ref->{origin}\n",
                     "$ref->{date}\t$ref->{qualifier}\n",
# etc.