foreach ($a, $b, $c, $d)
{
     tr/a-z/A-Z/;
}

##</code><code>##

for my $i ($a, $b, $c, $d)
{
      $i =~ tr/a-z/A-Z/;
}