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

##</code><code>##

my ($rvars) = shift;
...
my $path1 = $vars->{"to_images"};
my $path2 = $vars->{"to_magick"};
...