Select Code to Download

my @array = (
     {x => 1,
...
      z => 6},
   #etc
);

grep {$_->{x} == 4 } @array;

my @newarray = grep {$_->{x} == 4 } @array;