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