my @sel_id_array = grep { $_ < 30 } map { $_->{'ID'} } @array;