use strict;
my @ref_array = ([state,pointer],[state,pointer],[state,pointer]);
my $i = -1;
my %key_index = map($i++; unshift(@{$_},$i); $i,\$_;)@ref_array;