foreach my $num (split /::/ => $value) {