my $var = 10;

$van = 5;

​

print "Var value = $var, Van value =$van\n";

# Now reset all variables who name starts with 'v'

reset('v');

print "Var value =$var, Van value =$van\n";