#!/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__

##</code><code>##

% 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