Abbott and Costello
better example for Abbott and Costello

the previous example was simply equivalent to

    my $desc = join ', ', grep $_, @list;
test for Abbott and Costello