Select Code to Download

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

my @tcp_ports = qw/ 139 445 1984 /;

...

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