%h_numbers = map { @$_ } grep { looks_like_numebr ($_->[1]) } map { [ $_, $h{$_} ] } keys %h;