for my $rec_hr ( @$VAR1 ) { ... }