Select Code to Download

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

# your script.pl 
use warnings;
...
print "@libfiles\n";
my $LstCnt = @libfiles;
print "$LstCnt\n";

foo bar baz
3