Select Code to Download

#!/usr/bin/perl

...
foreach my $str (@{$arrayref}) {
        print "AFTER: str = $str\n";
}

BEFORE: str = A
BEFORE: str = _B
...
AFTER: str = A
AFTER: str = B
AFTER: str = C