#!/usr/bin/perl

my $arrayref = ['A','_B','C'];

foreach my $str (@{$arrayref}) {
        print "BEFORE: str = $str\n";
}
foreach my $str (@{$arrayref}) {
        $str =~ s/^\_//g;
}
foreach my $str (@{$arrayref}) {
        print "AFTER: str = $str\n";
}

##</code><code>##

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