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',
              );