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