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