use strict;
use warnings;

my %curr_struct_pos;
my $curr_struct_pos="hello";
my $type="key";
my $index=0;
$$curr_struct_pos{$type}[$index]++;