Given this is a data structure design question, providing very specific broken code is not a good way of explaining what you want to do.

my $x;
push @$x, [ [1,2] => 3 ];
my @xkeys = map $_->[0], @$x;
print $xkeys[0]->[0];
[download]