#!/usr/bin/env perl
use v5.14;

{
  my $var = "Hello world";
  say $var;
}
say $var;

##</code><code>##

use v5.14;

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

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

##</code><code>##

$Foo::Bar::monkey  = 'capuchin';
@Foo::Bar::monkies = qw( capuchin howler spider );
%Foo::Bar::monkies = (
  capuchin  => 1,
  howler    => 2,
  spider    => 3,
);

$::Hello = "World";  # is an alias for $main::Hello

##</code><code>##

{
  package Foo::Bar;
  our $monkey;
  $monkey = 'capuchin';
}

{
  package main;
  use feature 'say';
  say $monkey;   # blank line (it's undefined)
  say $Foo::Bar::monkey;
}