My favorite part is:

foreach $beer ("i", "drink") {

	drowns(my $sorrows);

}

redmist