in reply to A dereferencing problem

Hi!

Take a closer look at that line:
foreach $key (%$ref){

[download]
This is the first error/bug to correct. I'd suggest, you read "perldoc -f keys".

Rgds
Gnork

cat /dev/world | perl -e "(/(^.*? \?) 42\!/) && (print $1))"
errors->(c)

In Section Seekers of Perl Wisdom