my $some_string = "0,-933";


$Data::Dumper::Useqq = 1;         
print Dumper ($some_string) ;

my ($id1,$n1) = split(",",$some_string);
#then do things with $n1 and $n2.