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