open(FH, "$datfile") || die "Can't open $datfile!";

while(my $line=<FH>)
{
    chomp($line);
    push(@list, $line);
}