$inp{A} = 'abc_A_bla' ;
etc

##</code><code>##

foreach ( @inp ) {
     ($key) = $_ =~ /\w{3}_(\w)/ ; 
      $inp{$key} = $_ ;
}