if ($k eq "inputs"){ print "\n\n"."INPUTS"."\n"; @newarray = @$v; foreach $thisItem(@newarray){ print Dumper $thisItem; { }