#!/usr/bin/perl

my %example;
$example{foo} = say;

print $example{foo}, "\n";

##</code><code>##

#!/usr/bin/perl

use 5.010;

my %example;
$example{foo} = say;

print $example{foo}, "\n";