Help for this page
use Data::Dumper; #at the start of the script ... print Dumper(\$database,\$nextfield,\@fields); $result{$database}{next}= $nextfield; $result{$database}{fields}= \@fi +elds; #<--- the problematic line