#!/usr/bin/perl

use Locale::Currency::Format;
use Text::CSV;
use Data::Random qw(:all);
use strict;
use warnings;


my @names = ( 'adrian','reid','evan','mike','fred','shane');
my @amount = (-100 .. 100);
my $writefile = 'TextFile.txt';

open(my $fh, '>', $writefile) or die "Could not open file '$writefile'$!";

for (my $count =30; $count >1; $count--)    {
    
    my $randomnames = @names[rand @names];
    my $random_date = rand_date();
    my $randomamount = @amount[rand @amount];
    $randomamount = currency_format('USD', $randomamount, FMT_SYMBOL);
      
    print $fh "$randomnames,$random_date,$randomamount\n";
}

close $writefile;

print "Write Successfully Completed\n"