open my $dat, '>>', $filename
    or die "Can't append '$filename': $!";