my @file = split (/\n/, $line);