#!/usr/bin/perl

use Benchmark qw(:all);

my $count = 1000000;

timethese($count, {
  'Name1' => sub {
     my( $a, $b, $c, $d ) = qw( kookla fran and ollie );
     foreach ($a, $b, $c, $d) {
       tr/a-z/A-Z/;
     }
   },
   'Name2' => sub {
      my( $a, $b, $c, $d ) = qw( kookla fran and ollie );
      for my $i ($a, $b, $c, $d) {
        $i =~ tr/a-z/A-Z/;
      }
    },
});