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


##</code><code>##

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

<4
> is not a key in %j