the dot should be escaped then, like the other dot in the regexp:

my %files = map {/^(\w+)\.\d{6}\.csv$/; $_ => $1} <*.csv>;