my %hash;
$hash{ [3,4] } = qw( perl hacker );
print join ",", keys %hash;      # ????