my $x;
$x->{[1,2]}  = 3;
@xkeys  = keys %{$x};
print $xkeys[0]->[0];