The map to exactly recreate the effects of your foreach loop would be something like this:

my %ClipNames = map { (split/,/)[0, 1] } @clips;
[download]

but that doesn't produce what you ask for - the keys and values are the wrong way round. If what you ask for above is what you really want, then you'd need to change round the elements in the array slice like this:

my %ClipNames = map { (split/,/)[1, 0] } @clips;
[download]

The reason that you're seeing thevalue 13 is that you're using $. after you've read the whole data file, so $. is set to the number of lines in the file (i.e. the line number of the last line).

You can, of course, combine most of your processing into one line once you've worked out which map you want to use - like this:

my %ClipNames = map { (split/,/)[0, 1] }
                grep /^[0-9]+,[A-Z]:/ } <DATA>;
[download]

--
<http://www.dave.org.uk>

European Perl Conference - Sept 22/24 2000, ICA, London
<http://www.yapc.org/Europe/>