use v5.14;

sub f2
{
  while (<DATA>) { chomp; last; };
}
sub f1(_) 
{
  f2;
  say shift;
}

f1 "Hello ";
$_ = "World";
f1;
f1 for "!";
__DATA__
Everyone
Perlmonks