my @inp = ("abc_A_bla", "abc_B_bla", "abc_C_bla");

my %inp = map { /\w{3}_(\w)/; $1 => $_ } @inp ;

foreach ( keys %inp ) {
    print "$_ => $inp{$_}\n";
}