sub foo { my ($self, $params) = __params({ -a => '...', }, \@_); ... if ($params->{a}) { #### foreach my $key (keys %$result) { my $tkey = $key; $tkey =~ s/^-//; $result->{$tkey} = $result->{$key}; } return $result; }