my $important_message = 'foo';
printStatement(\$important_message);

sub printStatement { 
	my $var = shift;
	print $$var;
}