Help for this page

Select Code to Download

Select or download this

my %hash;
while (<STDIN>) {
...
      }
   }
}

Select or download this

111222333444555
111222333
...
111222333444555

$HASH{111}->{222}->{333} != 1  # now a hash reference