my $winstring = $b[$j].' '.$i[$j].' '.$n[$j].'
+ '.$g[$j].' '.$o[$j]."\n";