open (DAT, ">>yourData"); # note the >>
    print DAT $foo;
close DAT;