use Modern::Perl;
my @t   = qw(name John number 7 status unknown);
my $str = '';
while (@t) {
	$str .= sprintf('%s=%s', shift @t, shift @t);
	$str .= '&' if @t;
}
say $str;