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