my $var = {
            'key1' => '1',
            'key2' => 1
          };
print "Key1: It is a number\n" if ( $var->{'key1'} =~ /^-?\d/ ) ;
print "Key2: It is a number\n" if ( $var->{'key2'} =~ /^-?\d/ ) ;