Select Code to Download

use warnings;
use strict;

...
  }

print join "\n", @result1;

foo -4 bar -4 quux 2 bam
foi -4 bir -4 quix 2 bim
foe -4 ber -4 quex 2 bem
foa -4 bor -4 quax 2 bom

foo -2 bam
foi -2 bim
foe -2 bem
foa -2 bom