print "@array_wwpn\n";
 chomp @array_wwpn;
 my $somewwpnNames = join('";', @array_wwpn);
 print "$somewwpnNames";