my $playera = 100;
my $playerb = 100;
print "player A HP | player B HP\n";
while (1) {
  $playera -= rand(10);
  $playerb -= rand(10);
  print "$playera | $playerb\n";
  die (($playera < $playerb) ? "player A lost!" : "player B lost!") 
    if ($playera < 0 || $playerb < 0);
}