use warnings;
use strict;
use Data::Dumper;

my %x; 
$x{1,2,3} = 4; 
print $x{1,2,3}, "\n";

print Dumper(\%x);

__DATA__
4
$VAR1 = {
          '1‡˜2‡˜3' => 4
        };