sub threadB {
  my $Qab = shift;
  my $Qbc = shift;
...