use strict;
use warnings;

my %hash;
$hash{var} = 10;
$hash{van} = 5;
print "var = $hash{var}; van = $hash{van}\n"; 
delete hash{$_} for grep { /^v/ } keys %hash;

print "var = $hash{var}; van = $hash{van}\n";