use strict;
use warnings;
use File::Find;
use File::Basename qw(basename);

my @array = ( 1 .. 10 );
foreach my $key (@array) {
    # print "$key => $ENV{$key}\n";
    print "hello world\n";
}

hello world
hello world
hello world
hello world
hello world
hello world
hello world
hello world
hello world
hello world