Help for this page

Select Code to Download

Select or download this

if( exists $j{$number} ) {
    say $j{$number};
...
    say "<$number> is not a key in \%j"
}

Select or download this

C:\usr\pm\hash>perl 1214633.pl
4
...

<4
> is not a key in %j