my %code = map { $_ => [] } 0 .. 13;