First
$VAR1 = {
          'CTAGTACG' => '2',
          'ACTGCATA' => '14',
          'CTAAGCCT' => '16',
          'CCTCTCTG' => '8',
          'AGCGTAGC' => '5',
          'GCGTAAGA' => '13',
          'TCGCCTTA' => '1',
          'AGAGTAGA' => '12',
          'GCTCAGGA' => '4',
          'TTCTGCCT' => '3',
          'GTAGAGAG' => '7',
          'CTCTCTAT' => '10',
          'AAGGAGTA' => '15',
          'CATGCCTA' => '6',
          'TAGATCGC' => '9',
          'TATCCTCT' => '11'
        };
second
$VAR1 = {
          'TCGCCTTA' => '1',
          'AGAGTAGA' => '12',
          'CTAAGCCT' => '16',
          'CCTCTCTG' => '8',
          'AGCGTAGC' => '5',
          'GCGTAAGA' => '13',
          'ACTGCATA' => '14',
          'CTAGTACG' => '2',
          'TATCCTCT' => '11',
          'a' => 1,
          'CATGCCTA' => '6',
          'TAGATCGC' => '9',
          'CTCTCTAT' => '10',
          'AAGGAGTA' => '15',
          'GTAGAGAG' => '7',
          'TTCTGCCT' => '3',
          'GCTCAGGA' => '4'
        };
Use of uninitialized value in numeric comparison (<=>) at 1194053.pl line 66.
Use of uninitialized value in numeric comparison (<=>) at 1194053.pl line 66.
Use of uninitialized value in numeric comparison (<=>) at 1194053.pl line 66.
Use of uninitialized value in numeric comparison (<=>) at 1194053.pl line 66.
Use of uninitialized value in numeric comparison (<=>) at 1194053.pl line 66.
Use of uninitialized value in numeric comparison (<=>) at 1194053.pl line 66.
Use of uninitialized value in numeric comparison (<=>) at 1194053.pl line 66.
Use of uninitialized value in numeric comparison (<=>) at 1194053.pl line 66.