if($#_1 eq 1){   
  $time=$_1[0];   
  $time=~ s/\,//g;
  $time*=1000;
}