Select Code to Download

@tempArray;
foreach my $ref (@array){
...
foreach my $ref (sort substr($a,1) <=> substr($b,1) @tempArray){
  ...do whatever...
}

foreach my $ref (sort substr($a,1) <=> substr($b,1) if $substr($ref, 0
+,1) eq 'A' @tempArray){
  ...do whatever...
}