supun  -->  40000
  sam  -->  25000
readline() on closed filehandle $fh at ./base_ports.pl line 11.
  binasha  -->  10000
  bundy -->  37000
  binjiya  -->  5000