Quick tip: split's first arg is a regex pattern. It doesn't match the string literally. Use a match operator instead of a string, and you'll avoid future confusion.

my ($name, $email, $phone) = split(/\t/);
[download]

I also noticed your script lacks use strict; use wanrings;. Please use them. Not using them hides errors. This one's important.