sub init_values {


use strict;
use warnings;
use 5.011;
use Path::Tiny;
use utf8;
use Data::Dumper;

# initializations that must precede main data structure

my $images      = "images";
my $captions    = "captions";
my $ruscaptions = "ruscaptions";

my ($title, $path2, $abs) = (@_);

# page params
my %vars2 = (
  title        => $title,
  headline     => undef,
  place        => 'Vancouver',
  base_url     => 'http://www.merrillpjensen.com',
  css_file     => "${title}1.css",
  header       => path( $path2, "hc_input2.txt" ),
  footer       => path( $path2, "footer_center3.txt" ),
  body         => path( $path2, "rebus5.tmpl" ),
  print_script => "1",
  code_tmpl    => path( $path2, "code2.tmpl" ),
  oitop        => path( $path2, "oitop.txt" ),
  oibottom     => path( $path2, "oibottom.txt" ),
  to_images    => path( $path2, $images ),
  eng_captions => path( $path2, $captions ),
  rus_captions => path( $path2, $ruscaptions ),
  translations => path( $path2, 'translations' ),
  bottom       => path( $path2, "bottom1.txt" ),
  book         => 'Crosswords: ',
  chapter      => 'Кроссворды',
  make_puzzle  => 1,
  print_module => 0,
  script_file  => $abs,
  module_tmpl  => path( $path2, "code3.tmpl" ),
  server_dir   => 'perlmonks',
  image_dir    => 'pmimage',
  ts           => 'template_system',
  css_path     => $path2,
  ini_path     => path('/home/bob/Documents/html_template_data/3.ценности.ini'),
  
);


my $rvars2 = \%vars2;
#say "hash returned from init";
#say Dumper $rvars2;
return $rvars2;


}

##</code><code>##

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{&#1087;&#1086;&#1076;&#1087;&#1080;&#1089;&#1080;}->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{&#1087;&#1086;&#1076;&#1087;&#1080;&#1089;&#1080;}->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;
}