use strict;
use warnings;
my %known = (
    "foo" => "FOO",
    "bar" => "BAR",
    "baz" => "BAZ",
);

while ( <STDIN> ) {
    chomp;
    my $input = $_;

    for ( keys %known ) {
        if ( lc($input) eq $_ ) {
            print "You gave us $input, which equates to " . $known{lc($input)};
            print ". Have a nice day\n";
        }
    }
}