Select Code to Download

my @really_big_array = ({fruit=>apple},{vegitable=>'lettuce'},{fruit=>
+'oranges'},{vegitable=>'carrot'});

...
foreach(@really_big_array) {
    push(@smaller_array,$_) if($_->{fruit} ne "");
}