@names = qw(a b / \ ! _);

# check we have all the input worries
print @names;
print "\n";

# and so???
foreach $name(@names){
    print $name, ': ', $$name, "<BR>\n";
}