#!/usr/bin/perl -w # use strict; use warnings; use Data::Dumper; my %rowRetrun; %rowRetrun->{'contractList'} = ""; %rowRetrun->{claimList} = (); %rowRetrun->{error} = (); print "1.1 after method call ", Dumper(%rowRetrun);