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