sub subcalc{
  my ($x1,$y,$x2) = @_;
  if($y eq '*'){
      return mal($x1,$x2);
  }
  elsif($y eq '/'){
      return div($x1,$x2);
  }
  elsif($y eq '+'){
      return plus($x1,$x2);
  }
  elsif($y eq '-'){
      return minus($x1,$x2);
  }
  else{
      return 0;
  }
}