sub Char{ 
  my $char=400;
  my $hp= $char - int(rand(20)); 
  print $hp ; 
}

##</code><code>##

$hp= $hp-int(rand(20));