Improved version:
@a=qw(name John number 7 status unknown);
print join('',(map {$a[$_].($_%2?'&':'=');}(0 .. $#a-1))).$a[$#a];
Give a man a fish and you feed him for a day. Give him a fishnet and you feed him for a lifetime. Ooops! Wait a minute! What if the fishnet brakes down? He will ask for an other fishnet or worse starve to death. Better yet to teach him how to make a fishnet. But what if he forgets how to make a fishnet? Better yet to teach him where to look for knowledge on how to make a fishnet. But this can also go wrong. So ultimately it is best just telling him: help yourself. If you want to make it sure add 'stupid' and an exclamation mark, like this: 'Help yourself, stupid!'