Select Code to Download

my %file1=();
...
        foreach (my($k, $v) = (sort keys %file1)){
        print "$k\t$v\n";
}

CLS_S3_Contig1000       CLS_S3_Contig10000
CLS_S3_Contig1000       CLS_S3_Contig10000