my $ref = [];
my %hash;
$hash{$ref} = 1;
print keys %hash;