$ perl -le'
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);
'
$VAR1 = {
          '2--2' => 19,
          '--22' => 23,
          '3' => 44,
          '1--1' => 17,
          '22--' => 22
        };