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

my %a = (-keys   => 'v1',
         -values => 'v2');
         
print Dumper(\%a);