@a=qw(name John number 7 status unknown);

print join('',(map {$a[$_].($_%2?'&':'=');}(0 .. $#a-1))).$a[$#a];