my %multidim;
my $x = 3;
my $y = 4;
$multidim{ $x, $y } = 42;

print $multidim{ $x, $y }, "\n";