It doesn't work because you are setting the entire hash each time. That's just what %foo = ... does. You could do it all at once via:

%CpmRC = map /^(\d+)\W\d+\W\d+\W(\d+)/, <DATA>;
# or...
%CpmRC = map { (/\d+/g)[0,3] } <DATA>;  # reads a bit nicer
[download]

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker, who'd like a (from-home) job
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;