$VAR1 = {
	'D:\\Main\\Running a Business\\Euro\\EuroIssues' => 0
	'D:\\Main\\Running a Business\\Euro\\EuroIssues' => 1
   'D:\\Main\\News\\Business News\\about euro\\Introduction to the Euro' => 3

##</code><code>##

$VAR1 = {
  '1,D:\\Main\\Running a Business\\Euro\\EuroIssues' => 13,
  '6,D:\\Main\\News\\Business News\\about euro\\Euro-Intro' => 13,
  '0,D:\\Main\\mainmenu' => 13,
  '4,D:\\Main\\News\\Business News\\about euro\\Euro Issues' => 13,
  '7,D:\\Main\\News\\Business News\\about euro\\whatis emu' => 13,
  '10,D:\\Main\\News\\Business News\\about euro\\what uk and emu' => 13,
  '5,D:\\Main\\News\\Business News\\Bugs\\Millenium Bug Menu' => 13,
  '2,D:\\Main\\News\\Business News\\Main Business News Menu' => 13,
  '3,D:\\Main\\News\\Business News\\about euro\\Introduction to the Euro' => 13,
  '9,D:\\Main\\News\\Business News\\about euro\\govt decide' => 13,
  '8,D:\\Main\\News\\Business News\\about euro\\your question answered' => 13
};

##</code><code>##

use strict;

my (%ClipNames,@clips,@DataArray);

@DataArray = <DATA>;

@clips = grep { /^[0-9]+,[A-Z]:/ } @DataArray;  # Extract clip info

chomp (@clips);

# QUERY: Can this foreach loop be replaced by a map?
# Following map line does not work properly.
# my %ClipNames = map { $_, $. } @clips;

foreach (@clips)		# Create hash of clip IDs & clip names.
{
	my @ClipLine = split(/,/,$_);
	$ClipNames{$ClipLine[0]} = $ClipLine[1];	# Clip ID -> ClipName
}

use Data::Dumper;
$Data::Dumper::Indent = 1;
print Dumper(\%ClipNames);

exit;

__DATA__
0,D:\Main\mainmenu
1,D:\Main\Running a Business\Euro\EuroIssues
2,D:\Main\News\Business News\Main Business News Menu
3,D:\Main\News\Business News\about euro\Introduction to the Euro
4,D:\Main\News\Business News\about euro\Euro Issues
5,D:\Main\News\Business News\Bugs\Millenium Bug Menu
6,D:\Main\News\Business News\about euro\Euro-Intro
7,D:\Main\News\Business News\about euro\whatis emu
8,D:\Main\News\Business News\about euro\your question answered
9,D:\Main\News\Business News\about euro\govt decide
10,D:\Main\News\Business News\about euro\what uk and emu