use strict;
use warnings;

my $xnix='X';

sub f {
  {$xnix => 100}->{'X'}
}

print f(),"\n";