my $fct_openPort = (join ',',$fct_host_obj->tcp_ports('open'))."\n" ;
my @fct_ports = split ',', $fct_openPort;

##</code><code>##

my @tcp_ports = qw/ 139 445 1984 /;

my $fct_openPort = (join ',',@tcp_ports)."\n" ;
my @fct_ports = split ',', $fct_openPort;

use Data::Dumper;
$Data::Dumper::Useqq = 1;
print Dumper(\@tcp_ports,\@fct_ports);

__END__

$VAR1 = [ 139, 445, 1984 ];
$VAR2 = [ 139, 445, "1984\n" ];