use strict; use Data::Dumper; print "Check 1\n"; print Dumper { 'field1' => 'value', 'field2' => 'value', 'checkfield' => '1' }; print "Check 2\n"; print Dumper { 'field1' => 'value', 'field2' => 'value', 'checkfield' => '1', 'checkfield' => '3' } ; print "Check 3\n"; print Dumper { 'field1' => 'value', 'field2' => 'value', 'checkfield' => '1', 'checkfield' => '3', 'checkfield' => '5' }