while(my $line = <$info>) { foreach ($line) { chop; @vlinks = split(/:/,$_) ; print "
## while (<$info>) { @vlinks=split /:/; # ... }