Quest Using Hashes (%)

[Kingmen30264]

It's been awhile since I bugged anyone here on the forums about anything... and I got a question about a few quest(s) that I am composing.

First I am going to start off by saying this, "I finally got myself a Perl Book, and I have been slowing learning about Perl and its' entities."

As stated above, I am slowly learning Perl (What with College, a kid, and a family hehe), and here is something that I have come up with.

sub EVENT_SAY
{

my $cookie = quest::saylink("Cookie");
my $cookieid = quest::varlink("19732");

my %dadscookies = (
                  "Hail" => "Would you like a [$cookie]?",
                  "cookie" => "Yes, a Cookie! Here is what it looks like [$cookieid]",
                  "no" => "Okay, I will eat it!",
                  )

print %dadscookies($text);

}

I have tried it several forms of this, but I just cannot seem to grasp how it should be laid out.

If someone could please help me with this, then that would be awesome.

What I am trying to do is this:

Eliminate the IF/elsif/elseif command, and from what I have read, this is VERY possible thanks to "Hashes".

Once again, as always, sorry for the noob question, but I am trying learn this without asking too many people for help.

Thanks to all that respond.

Kingmen.