Select Code to Download

use List::MapMulti qw(mapm);

...
  my ($QB1, $QB2, $RB1, $RB2) = @_;
  ...;
} \@keys, \@keys, \@keys, \@keys;

use List::MapMulti qw(mapm);

...
  my ($QB1, $QB2, $RB1, $RB2) = @_;
  ...;
} (\@keys) x 4;