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