my @a=(3,4,5);
my %h;
$h{@a}='fred';
print keys %h;