my @fields;
while (<DATAFILE>)
{
    chomp;
    push @fields, $_;
}