my %keymap = (
    username => 'Name',
    password => 'PW',
);

my $old = { username => 'Drew', password => 'Boy' };

my $new = {};
foreach my $k (keys %$old)
{
    $new->{$keymap{$k}} = $old->{$k};
}