Nikolay

#!/usr/bin/env perl

use 5.010;
use strict;
use warnings;
use Carp;
use Data::Dumper;

my %filials = (boo => 200,
               foo => 300,
              );

my @test= qw/444 33a 2 d 300 ffd 22/;

for my $test_val (@test) {
    $filials{foo} = $test_val;
    test_var( \%filials );
}

sub test_var {
    my $r = shift;
    croak( "Value \$r->{foo}**$r->{foo}** is not defined or not number."
               . "\nDump \$r="
                   . Dumper($r) )
        if !defined $r->{foo}
            || $r->{foo} !~ /^\d+$/;
    say $r->{foo};
    if ( $r->{foo} > 100 ) {
        say '$r->{foo} > 100';
    } else {
        say '$r->{foo} <= 100';
    }
}