# De-oopsed.
print join(",", @foo), "\n";
print grep(/o/, @foo), "Hello world!\n";
print table{
    map({
        tr(td($_->[0]), td($_->[1])) } @foo),
        ...