foreach my $key (keys %$result) { my $tkey = $key; $tkey =~ s/^-//; $result->{$tkey} = $result->{$key}; } return $result; }