VALUE:while($file[$j][$n] =~ /\b\.+\b/gi)            # while there is still a digit there (i.e. not a name