use Data::Dumper;
my %h1;

$h1{(1, 1)} = 17;
$h1{(2, 2)} = 19;
$h1{('', 22)} = 23;
$h1{(22, '')} = 22;
my @h = (3, 4, 5);
$h1{(@h)} = 44;
print Dumper(\%h1);

##</code><code>##

$VAR1 = {
          '22' => 22,
          '22' => 23,
          '11' => 17,
          '3' => 44,
          '22' => 19
        };