Help for this page

Select Code to Download

Select or download this
```
$inp{A} = 'abc_A_bla' ;
etc
```

Select or download this

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