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