Select Code to Download

my @sorted_vars = 
  map { $_->[1] }
  sort { $a->[0] cmp $b->[0] }
  map { [ lc $_, $_ ] } @{$vars};