[Pdx-pm] Hash reference depricated..

[Tom Heady]

Russ Johnson wrote:
>  From what I can see, the two routines here produce the same result.
> 
> for my $key ( keys %$DATA ) {
>     my $value = %$DATA->{$key};

You probably want:

     my $value = $DATA->{$key};


>     print OUTFILE "$key => $value\n";
> }
> 
> while ( my ($key, $value) = each(%$DATA) ) {
>     print OUTFILE "$key => $value\n";
> }
> 
> Except, the first one results in "Using a hash as a reference is 
> deprecated at ./script.pl line 85." The second runs without errors.
> 
> Anyone see why?
>