Select Code to Download

# Find the number of vertices
my @L;
...
        push(@L, $S[$i][$j]);
    }
}

my @L = map { @$_ } @S;