Select Code to Download

my @names = map {$i > 6 ? push(@names,$input2arr[$i]) : $i++ } @input2
+arr;

my @letters  = ('a', 'b', 'c');
my @capitals;
foreach my $l (@letters) {
  push @capitals, uc($l);
}

my @letters  = ('a', 'b', 'c');
my @capitals = map { $i++; push @capitals, uc($letters[$i]) } @letters
+;

my @letters  = ('a', 'b', 'c');
my @capitals = map { uc($_) } @letters;

my $i = 0;
my @names = map { $i++ > 6 ? ($_) : () } @input2arr;

my $i = 0;
my @names = grep { $i++ > 6 } @input2arr;

my @names = @input2arr[ 7 .. $#input2arr ];