foreach my $line (@data) {
    print "$line\015\012"
}