in reply to array format question

print join ";", map {'"' . $_ . '"'} @array_wwpn;

[download]

In Section Seekers of Perl Wisdom