#!/usr/bin/perl -w
use strict;

sub println(@)
{
	print map{"$_\n"} @_;
}

println 'Foo', 'Bar';
println 'Baz';