sub make_russian_crossword {
  use 5.011;
  use warnings;
  use POSIX qw(strftime);
  use Path::Tiny;
  use Encode;
  use open OUT => ':encoding(UTF-8)', ':std';
  use Data::Dumper;
  use utf8;

  my $rvars = shift;
  my %vars  = %$rvars;

  my $munge = strftime( "p%d-%m-%Y-%H-%M-%S\.txt", localtime );
  my $in_path = path( $vars{rus_captions}, $munge )->touchpath;

  say "in make russian xword------";

  ##Let mother know that you created a file, *verb* a reference:
  $vars{log_file} = $in_path;

  
  ## input use Path::Tiny methods
  my @lines = $vars{подписи}->lines_utf8;
  say "lines are @lines";
  my $ref_lines = \@lines;
  vars{data} = $ref_lines;
  say "with Dumper------";
  say Dumper $ref_lines;
  say "with Dump------";
  use Data::Dump; 
  dd $ref_lines;
  #print_aoa_utf8($ref_lines);
  say "using slurp method--------";
  my $guts = $vars{подписи}->slurp_utf8;
  say "guts are $guts";

  my $width = 10;

  ## trim off white space beyond ten for every line
  # trim leading or trailing whitespace

  return $rvars;
}