printStatement('foo');

sub printStatement { 
	# @_ is ('foo')
	my $var = shift;
	# $var is now what was $_[0], the first item in @_, ie 'foo' 
	print $var;
}

# or just

sub printStatement { print shift }