Select Code to Download

sub _isNumeric {
        my ($value) = @_; 
...
          };
print "Key1: It is a number\n" if _isNumeric( $var->{'key1'} ) ;
print "Key2: It is a number\n" if _isNumeric( $var->{'key2'} ) ;

Key1: It is a number
Key2: It is a number