if ($currNumber =~ /^($product)./) { 
	@currNumber = split //, $currNumber;
	@product = split //, $product;
        
	$prodLength = @product;
        @adjNum = splice(@currNumber,$prodLength); }