Select Code to Download

foreach my $row ($te->rows)
{
...
}

print Dumper %map;

for my $LSS ( sort keys %map )
{
...
    }
    
}