use strict;
use warnings;

BEGIN {
    print "Version $]\n";
	use 5.10.0;   # for say
    print "Version $]\n";

my %h;
$h{'a'} = 1;
say $h{'a'};
}