Hey everybody,

I'm a Perl newbie and I've having trouble with the following snippet of
code. This code represents a part of what I'm trying to do to modify our
district's Request Tracker system. (http://bestpractical.com/rt/)

I have this:

#!/usr/bin/perl

my %watchers;
$watchers{"ESC"} = qw/A B C/;
$Building = "ESC";
@emails = $watchers{$Building};

foreach $email (@emails) {
  print "$email\n";
}

And I get this:

Tim-Wilsons-Computer:~/Desktop wilson$ ./test.pl
C

I was hoping to get:

A
B
C

I'm sure this is something obvious. Any suggestions?

-Tim

-- 
Tim Wilson
Twin Cities, Minnesota, USA
Educational technology guy, Linux and OS X fan, Grad. student, Daddy
mailto: wilson at visi.com   aim: tis270   blog: http://technosavvy.org/