use strict;
use IO::File;

my $file = new IO::File('file.txt','r') or die"Error can't open file";

foreach my $line ($file->getlines)
{
	my ($id, $name, $major, $email) = split(',',$line);
	chomp $email;

	}