use strict;
use warnings;

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