Did you mean to single quote the variable?

open (MAIL,"|mail $mail") || die "mail problem : $!";

update: added parens per Chmrr's point below