I'd revisit perl perldata/perlref and family (cause I forget in which [] and {} are discussed, anyway ;)

sub FU {
return { qw[ a b c d ] }->{$_[0]};
}

die FU('a');
__END__
b at - line 5.
[download]

update:

Oh yeah, I almost forgot, you don't have an array, you have a list.

MJD says you can't just make shit up and expect the computer to know what you mean, retardo! ** The Third rule of perl club is a statement of fact: pod is sexy.