open(DATA, "data.txt") or die "error opening file $!";
@data = <DATA>;