my @id_array = map { $_->{'ID'} } @array;

##</code><code>##

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