# Ooops!
print join ",", @foo, "\n";

# Ooops!
print grep /o/, @foo, "Hello world!\n";

# Ooops!
print table{
    map {
        tr(td($_->[0]), td($_->[1])) } @foo,
        ...