Re: Two variables changed by tr

[hippo]

foreach aliases into the list rather than copying. As you have 2 nested loops over the same array, half the time your two lexicals are aliases for the same item in the array.

[glendeni]

Thanks - learned something new today

[Danny]

Compare:

use warnings;
use strict;
my @chars = ( 'a', 'b' ) ;
foreach my $char1 ( @chars )
{
  foreach my $char2 ( @chars )
  {
    print "BEFORE: $chars[0] $chars[1] \n" ;
    $char2 =~ tr/a-z/A-Z/ ;  # $char1 ALSO UPPER-CASED !?
    print " AFTER: $chars[0] $chars[1] \n" ;
  }
}

[ikegami]

Example:

my @chars = qw( a b c );

for my $char ( @chars ) {
   $char = uc( $char );
}

say "@chars";  # A B C