my $input2 = <<'(END INPUT2)';
{$God} grant me the serenity  
To accept the things I cannot change;  
Courage to change the things I can;  
And wisdom to know the difference.  
(END INPUT2)

##</code><code>##

OUTFILES*******************
Group Of Drunks,
who art in heaven,
Hallowed be thy name.
Ta ti ti ta,
Thy will be done,
On earth as it is in heaven.
Give us this day our daily bread;
And forgive us our trespasses,
As we also have forgiven our trespasses;
And lead us not into temptation,
But deliver us from ego.
For thine is the realm and the power and the glory, for ever. Amen.

Group Of Drunks grant me the serenity  
To accept the things I cannot change,  
Courage to change the things I can,  
And wisdom to know the difference.  
-------------
Group Of Drunks,
who art in heaven,
Hallowed be thy name.
Armageddon can wait,
Thy will be done,
On earth as it is in heaven.
Give us this day our daily bread;
And forgive us our trespasses,
As we also have forgiven our trespasses;
And lead us not into temptation,
But deliver us from ego.
For thine is the big blue boat and the power and the glory, for ever. Amen.

Group Of Drunks grant me the serenity  
To accept the things I cannot change,  
Courage to change the things I can,  
And wisdom to know the difference.  
-------------
Elohim,
who art in heaven,
Hallowed be thy name.
Armageddon can wait,
Thy will be done,
On earth as it is in heaven.
Give us this day our daily bread;
And forgive us our trespasses,
As we also have forgiven our trespasses;
And lead us not into temptation,
But deliver us from ego.
For thine is the Ца�&#128;с�&#130;во and the power and the glory, for ever. Amen.

Elohim grant me the serenity  
To accept the things I cannot change,  
Courage to change the things I can,  
And wisdom to know the difference.  
-------------
$ 


##</code><code>##

#!/usr/bin/perl -w
use 5.011;
use Path::Tiny;
use utf8;
use open OUT => ':utf8';
use Data::Dump;
use Text::Template;
use POSIX qw(strftime);
binmode STDOUT, 'utf8';

my $input = <<'(END INPUT)';
{$God},
who art in heaven,
Hallowed be thy name.
{$Thy_kingdom_come},
Thy will be done,
On earth as it is in heaven.
Give us this day our daily bread;
And forgive us our trespasses,
As we also have forgiven our trespasses;
And lead us not into temptation,
But deliver us from {$evil}.
For thine is the {$kingdom} and the power and the glory, for ever. Amen.
(END INPUT)

my $input2 = <<'(END INPUT2)';
{$God} grant me the serenity  
To accept the things I cannot change,  
Courage to change the things I can,  
And wisdom to know the difference.  
(END INPUT2)

my $path1 = Path::Tiny->cwd;
say "path1 is $path1";
say "input is $input";

## populate hash
my $data = [
  [
    'God',
    '(silence)',
    '&#1041;&#1086;&#1088;&#1080;&#1089;&#1073;&#1086;&#1078;',
    'Elohim',
    'Group Of Drunks'
  ],
  [
    'Thy_kingdom_come', 'Armageddon can wait', 'Ta ti ti ta', 'Let science be'
  ],
  [ 'evil',             'ego',       'your followers', 'being too serious' ],
  [ 'definite_article', 'the',       'ze',             'die' ],
  [ 'kingdom',          '&#1062;&#1072;&#1088;&#1089;&#1090;&#1074;&#1086;', 'realm',          'big blue boat' ]
];

#dd $data;

## main loop
# set trials
my $trials       = 3;
my $dummy        = 1;
my $first_second = strftime( "%d-%m-%Y-%H-%M-%S", localtime );

while ( $trials > 0 ) {

  # create an output file

  my $out_file =
    $path1->child( 'my_data', "$first_second", "$first_second\.$dummy.txt" )
    ->touchpath;
  say "out_file is $out_file";

  my %vars = map { $_->[0], $_->[ rand( $#{$_} ) + 1 ] } @{$data};
  my $rvars = \%vars;

  my $template = Text::Template->new( TYPE => 'STRING', ENCODING => 'UTF-8', SOURCE => $input )
    or die "Couldn't construct template: $!";

  my $result = $template->fill_in( HASH => $rvars );
  $out_file->append_utf8($result);
  $out_file->append_utf8("\n");

  my $template2 = Text::Template->new( TYPE => 'STRING', ENCODING => 'UTF-8',SOURCE => $input2 )
    or die "Couldn't construct template: $!";

  my $result2 = $template2->fill_in( HASH => $rvars );
  $out_file->append_utf8($result2);

  $trials -= 1;
  $dummy += 1;

}    # end while condition

print "OUTFILES*******************\n";
foreach my $filename ( glob("./my_data/$first_second/*") ) {
  open my $fh, '<', $filename or die "can't print $filename! $!";
  while ( my $line = <$fh> ) {

    print "$line";
  }
  say "-------------";
  close $fh;
}

__END__

##</code><code>##

$T::recipient = 'Josh';
$text = $template->fill_in(PACKAGE => T);