my %pay = ( A => 1,  F => 4,  K => 5,  P => 3,   U => 1,  Z => 10,
		    B => 2,  G => 2,  L => 1,  Q => 10,  V => 4,
			C => 3,  H => 4,  M => 3,  R => 1,   W => 4,
			D => 2,  I => 1,  N => 1,  S => 1,   X => 8,
			E => 1,  J => 8,  O => 1,  T => 1,   Y => 4
);

my $word;
my @word;
my @result;
print "Enter word to calculate.\n";
print "\nPress 'q' to quit\n";

while (){
	print "\nWord?\n";
    chomp ($word = <STDIN>);
	@word = split("", $word);  # split up $word
    if ($word eq 'q'){
        print "Quiting program";
	    last;
    }
    foreach my $w (@word){
		@result = grep {defined $w} @pay{@word};
	}
	for my $r (@result){
	    print "[$_]\n";
	}
}