Select Code to Download

my @chars = ( 'a', 'b' ) ;
foreach my $char1 ( @chars )
...
    print " AFTER: $char1 $char2 \n" ;
  }
}

BEFORE: a a
 AFTER: A A
...
 AFTER: B A
BEFORE: B B
 AFTER: B B