# re_hash.pl

# initialize the lookup table 
%re_lookup = (
	'Eco47III'=> 'AGCGCT', 
	'EcoRI' => 'GAATTC', 
	'HindIII' => 'AAGCTT', 
);

print "Enter restriction enzyme name\n"; 
$re=<STDIN>; 
chomp $re;

$seq = $re_lookup{$re}; 

if (defined($seq)) { 
	print "RE sequence for $re is: $seq\n"; 
} else { 
	print "Sorry, I don't know about \"$re\""; 
}