my $arref1 = [
            'foo bar quux bam',
            'foi bir quix bim',
            'foe ber quex bem',
            'foa bor quax bom',];

 my $inst1 =   '4 A -4 C -4 B 2 D';

# intended result
my @result1 = ( 
                'foo -4 bar -4 quux 2 bam',
                'foi -4 bir -4 quix 2 bim',
                'foe -4 bar -4 quex 2 bem',
                'foa -4 bor -4 quax 2 bom',
              );

##</code><code>##

my $arref2 = [
               'foo bam',
               'foi bim',
               'foe bem',
               'foa bom',
              ];

my $inst2 =  '3 A -2 D';

# intended result
my @result2 = (
               'foo -2 bam',
               'foi -2 bim',
               'foe -2 bem',
               'foa -2 bom',
              );