The "." is the problem; this is a regexp in disguise. Try

@DOMAINS = qw( a.com b.com c.com);
foreach $DOMAIN (@DOMAINS) {
    my ($pre, $suf) = split (/\./ , $DOMAIN);
    print $pre;
}
[download]