use warnings;
use strict;
my $X;
$X->{aa} = 1;
my $c =  $X->{ab};
print "$c\n";