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