my @referers; open(FH, "/etc/mail/sendmail.cw") or die "Cant open $i! : $!\n"; while() { chomp; my $www = "www.$_"; push(@referers, $_); push(@referers, $www); } close(FH); }