use warnings;
use strict;
use Data::Dumper;

my %h = (-v => 5);
print Dumper(\%h);
print "$h{-v}\n";

__END__

$VAR1 = {
          '-v' => 5
        };
5