@a=qw\ 2 4 7 6 4\;
$hash{[@a]} = "jello";
foreach $i (keys %hash) {
    print @$i;
}