What have you tried?:
#!/usr/bin/perl
use warnings;
use strict;
open my $fh, ">", 'logfile.txt'
or die "Can't open the fscking file: $!";
my $need_work = 10;
my $i_tried = 0;
while ( $need_work > $i_tried ) {
$i_tried++;
my $statement
= "I've tried $i_tried things as a test\n";
print $fh $statement;
}
__END__
% cat logfile.txt
I've tried 1 things as a test
I've tried 2 things as a test
I've tried 3 things as a test
I've tried 4 things as a test
I've tried 5 things as a test
I've tried 6 things as a test
I've tried 7 things as a test
I've tried 8 things as a test
I've tried 9 things as a test
I've tried 10 things as a test
Steve