#!/usr/bin/perl
use strict;
use warnings;

print qq{perl version: $] \n};;; 

my $x; 
my %y= ("h"=>1, "i"=>2);  

eval
{
	print $x, $y{x}; 
} ;

# Check for error out of eval{}
if ($@)
{
	# There was an error trapped.
	my $dsperr = $@;
	print "-------------------------\n";
	print "$dsperr\n";
	print "-------------------------\n";
}
else
{
	print "No error found.\n";
}

printf "%s", $x;

exit;

__END__