use v5.14;

my $global;
sub set {
  $global = shift;
}

set("Hello world");
say $global;