print "Please enter a number between 1 and 5 (inclusive) below:";
my $number = <STDIN>;
chomp($number);

my @colours = ("red", "green", "blue", "purple", "black");

my %table = (
	1 => "angry"
	2 => "sick"
	3 => "calm"
	4 => "worried"	
	5 => "sad"
	);