Select Code to Download

Select or download this
```
for $type (keys %$curr_struct_pos) {
```

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

Select or download this
```
for my $var ($begin..$end) {#blah}
```
Select or download this
```
my @sorted=sort {$a <=> $b} @numlist;
```
Select or download this
```
$$curr_struct_pos{$type}[$a]
```

Select or download this

use strict;
use warnings;
...
my $type="key";
my $index=0;
$$curr_struct_pos{$type}[$index]++;

Select or download this

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

Select or download this

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

Select or download this

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