my %hash = map {
    my @explicit  = split //, $_;
    $explicit[0] => { $explicit[1] => 1 };
} <>;