Win8 Strawberry 5.8.9.5 (32)  Sun 09/20/2020 22:47:03
C:\@Work\Perl\monks\shabird
>perl get_seqs_1.pl
please enter DNA sequences:
  first sequence: dddddd
  secundus sequence: sss
  third sequence: ffffffffff
  4th sequence: gggggg
$VAR1 = {
          'first' => {
                       'len' => 6,
                       'seq' => 'dddddd'
                     },
          'secundus' => {
                          'len' => 3,
                          'seq' => 'sss'
                        },
          '4th' => {
                     'len' => 6,
                     'seq' => 'gggggg'
                   },
          'third' => {
                       'len' => 10,
                       'seq' => 'ffffffffff'
                     }
        };
valid entered sequences in order of prompt:
  first: dddddd (6)
  secundus: sss (3)
  third: ffffffffff (10)
  4th: gggggg (6)
valid entered sequences in order of increasing length:
  secundus: sss (3)
  first: dddddd (6)
  4th: gggggg (6)
  third: ffffffffff (10)