Select Code to Download

use Data::Dumper;
use List::Util qw(first);
...

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