Select Code to Download

no autovivification;

...
say Dumper([grep { $_->{"aaa"} < 4 } @x]->[0]->{"aaa"});

#$VAR1 = undef;