$ touch food fool $ perl -e '@foos=qw(foo* bar*);print join(", ", <@foos>)."\n"'; food, fool