sub selected {
  my $arr_ref = shift;
  die "selected: need an arrayref" unless (ref $arr_ref eq "ARRAY");
  return grep {($_ > 35)} @$arr_ref;
}