use Data::Dumper; ($str) = Dumper(\@foo) =~ /=(.*);$/s; $str =~ tr/' \n/"/d; [download]
In reply to Re: help needed with map by Roy Johnson in thread help needed with map by nmerriweather