use strict;
use warnings;
my $xnix='X';
my $f={$xnix => 100}->{'X'};
print $f,"\n";