my $vcid;
my $tag;
my @splittag;
my $pop;
my $xcon;
my $cos;
my @splitcos;

# change those to:

my $vcid = '';
my $tag = '';
my @splittag;
my $pop = '';
my $xcon = '';
my $cos = '';
my @splitcos;