$ perl
use strict;
use warnings;
my $xnix='X';

sub f {
  my $z = {$xnix => 100}->{'X'}; # make it a hash reference
  return $z;
}

print f(),"\n";
__END__
100