use warnings;
use strict;

print join ("\t\t" => qw(Name Phone E-mail)),$/;
while (<DATA>) {
    chomp;
    print $_, "\t";
    print $/ if $. % 3 == 0; # note here 
}

__DATA__
Jacobs, April
750.467.9582
quam.quis@sedhendrerit.org
Mays, Martena
870.348.1974
sollicitudin@nonummyFusce.org
McNeil, Brennan
289.527.6151
lobortis@nisl.com
Sexton, Melvin
599.927.5337
in.felis@varius.com
Blackburn, Prescott
661.589.1228
sed@egetlaoreetposuere.edu