foreach my $a (@$aref) { };