use warnings;
use strict;
use Data::Printer;

my @gn;
p @gn;    # print [] i.e empty
print my $c = () = @gn;    ## print 0


##</code><code>##

# your script.pl 
use warnings;
use strict;
use Getopt::Long;

my @libfiles;
GetOptions( 'library=s' => \@libfiles );

@libfiles = split( /,/, join( ',', @libfiles ) );

print "@libfiles\n";
my $LstCnt = @libfiles;
print "$LstCnt\n";


##</code><code>##

foo bar baz
3