Select Code to Download

my %hash;
my @split = split //, $string;
...
  push @{$hash{$_->[0]}}, $_->[1];
}
undef @positions ;