while(<DATA>){

    # Populate the data array
    if ($_ !~ /^\s*$/){
        push @data, $_;
    }
}