use strict;
use warnings;

my $xnix='X';

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

print f(),"\n";

##</code><code>##

syntax error at U:\develsv\ARTS\playground\hash_problem.pl line 7, near "}->"
syntax error at U:\develsv\ARTS\playground\hash_problem.pl line 8, near "}"

##</code><code>##

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