use strict;
my $flag = shift;
sub hello { return "hello by reference\n" }
print xello() if $flag;