use strict;
use warnings;
use 5.010;


open my $OUTFILE, '>', 'data.txt'
    or die  "Couldn't open data.txt: $!";

for (1 .. 10) {
    say {$OUTFILE} 'hello world';
}

close $OUTFILE;