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