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