DV33AJ23O6YN6WMYOXLZSOXBPKL2WPEPUQWSIR7XQLQ2VCSC4KDAC
BDSD2JLV4V4I52SE7MCZLYNDC4XU27ZNH7TYKLT7CA7YR5WRMQBAC
IWHFLFVVP2W5E6P5R2ATDSZ66OYE3KZZY26KTFPZUPXI7SYPMMWAC
2GK5DOU7ODF4WBSN3QTD3WIO52VTL2LOAXKGCDEMMAQPTEO4A4HAC
N22GPKYTOLZLBGTGDATQDVZ4R5APZEAOIA7L32X4UXBH4XNI7MWAC
die unless defined $hash;
die "path $path does not have a hash" unless defined $hash;
print scalar @list, "\n";