sub foo
{
foreach my $thing (@_)
{
# do something
}
    }
    print "Hello\n";
print "something else\n";