for($i=0 $i<31;$i++)  {
      $busi[$i] =~ s/-//g;
}