sub FETCH {${$_[0]}++%2?"=":"&"}
sub TIESCALAR {bless\my$i}
tie $", "main";
my @array = qw[name John number 7 status unknown];
say "@array";
__END__
name=John&number=7&status=unknown