foreach my $rec (@farray1) { my @parray=@{$rec->{'parray}}; if(SearchForm($rec)==0) { print "$rec->{'rev'}\n"; } } This was working, now it says "Error after rev" Everytime I use the ->{}, I get an error.