sub describe {
    my %person;
    if (@_ and ref($_[0]) eq 'HASH') {
        %person = %{+shift};
    }
    %person = @_;
    ...
}