...
   @all = split(/\./, $mystring);
   dosumption(@all);