#!/usr/bin/perl

use strict;
use warnings;

for (my $i = 1; $i < 10; $i++)
{
    my $filename = time . rand;
    print "$filename\n";
    open FILE, ">$filename";
    print FILE "BOOGA BOOGA $i\n";
    close FILE;
}

# If that's not unique enough, try this:
for (my $i = 1; $i < 10; $i++)
{
    my $filename = time() . rand() . rand();
    print "$filename\n";
    open FILE, ">$filename";
    print FILE "BOOGA BOOGA 2 x $i\n";
    close FILE;
}

__END__