Select Code to Download

use warnings;
use strict;
...

   print $alpha[$_+1] for @location; # prints bdf

  my @alpha = qw(a b c d e f);

...
  for (@location){
     print $alpha[$_+1] if defined $alpha[$_+1];
  }