Sorry but not familiar with Dumper.

print "debug Dumper($pats_ref)\n";