for $type (keys %$curr_struct_pos) {

##</code><code>##

        for ($a=1;$$curr_struct_pos{$type}[$a];$a++) {

##</code><code>##

for my $var ($begin..$end) {#blah}

##</code><code>##

my @sorted=sort {$a <=> $b} @numlist;

##</code><code>##

$$curr_struct_pos{$type}[$a]

##</code><code>##

use strict;
use warnings;

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

##</code><code>##

$path = "Global${type}Def:$$curr_struct_pos{$type}[$a].def";

##</code><code>##

for my $type (keys %$curr_struct_pos) {
	for my $index (1..@{$cur_struct_pos{$type}}-1) {
		$path="Global".$type.
		      "Def:".$curr_struct_pos{$type}[$a].
		      ".def"; #much easier to read
		$curr_struct_pos{$type}[$a] = extract();
}

##</code><code>##

my %hash;
my @list=qw(These elements are going to become keys);
map {$hash{$_}++} @list;
#or
$hash{$_}++ foreach @list;
#or with refs...
my $hash_ref =\%hash;
my $array_ref=\@list;
$hash->{$_}++ foreach @$list;