#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

my %hash = (key1 => 'val1', key2 => 'val2');
s/val/V/ for values %hash;
say "$_ => $hash{$_}" for keys %hash;