in reply to searching an array

grep 
die "bla bla\n" unless grep {$_ eq $name} @array;

[download]
Caution: Contents may have been coded under pressure.

In Section Seekers of Perl Wisdom