Help for this page
my %hash; while (<STDIN>) { ... } } }
111222333444555 111222333 ... 111222333444555 $HASH{111}->{222}->{333} != 1 # now a hash reference