#!/usr/bin/perl -w

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";