my $table = $4;
@tokens = split(/ /,$table);
foreach $token (@tokens) {
if($src >= $dst){
if($token != "0") #if there is a link between src and dst
my $table = $4;
@tokens = split(/ /,$table);
foreach $token (@tokens) {
if($src >= $dst){
if($token != "0") #if there is a link between src and dst