my $number= <STDIN>;

my $maxl= <STDIN>;

  my $minl= <STDIN>; # Line 10