>perl -MData::Dumper -Mstrict -e 'sub t{ map {$_+=1 } @_}; my %h = (1 => 2, 3 => 4); %h = t(%h); print Dumper \%h'
$VAR1 = {
          '4' => 5,
          '2' => 3
        };