1 #!/usr/bin/perl -w
1 #! /usr/bin/perl
2
3 use warnings;
3 use strict;
4 use strict;
4 use FindBin;
5 use FindBin;
5
6
6 sub del_double {
7 sub del_double {
7 my %all;
8 my %all;