...

use Data::Dumper;
exists $mon->{JAN}
    or die "Couldn't find entry for 'JAN' in " . Dumper $mon;