#!/usr/local/bin/perl -w
use warnings;
use strict;

my %report_hash = (
    'event_1_count'  => 17,
    'event_2_count'  => 53,
    'event_3_count'  => 1245,
                );

my $salary = $report_hash{'salary'};
print "Conratulations! Your salary this month: $salary dollars.\n";
print "... and my reporting Camel goes on and on...\n";

# Now, this should do it:
die "Oops... I did it again!.." unless exists($report_hash{"salary"});