# 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";