in reply to help needed with map

You can use Data::Dumper: 
use Data::Dumper;
($str) = Dumper(\@foo) =~ /=(.*);$/s;
$str =~ tr/' \n/"/d;

[download]
:-)
Caution: Contents may have been coded under pressure.

In Section Seekers of Perl Wisdom