my $signed_payload = $sig_head{'t'} . '.' . $self->{'payload'};

my $signed_payload = sprintf '%s.%s', $sig_head{'t'}, $self->{'payload'};