my @data;
open(FILE, "<$filename");
foreach(<FILE>){
  push @data,$_ unless ($_ eq "\n");
}
close FILE;