output :-
script.pl file.csv
it will give a list (based on first column i mentioned above as GROUP)
        0) MAGENTF
        1) MAGENTR
        2) MCDR

$CHOSENAPP=();
%CHOOSEN_LOGICIAL_NAME_Hash=();
$CHOSENACTION=();

%Unique_APPS_Hash=();
%Unique_NAMES_Hash=();

#### OPEN INPUT CONFIG  FILE  AND READ INTO 2 DIMENSIONAL ARRAY #################
sub read_config
{
	open(FILE_IN, "<$DIR/$FILE" ) || &File_Error;

	$X=0; #initialize count of lines in file and array
	while ( <FILE_IN> )
	{
		if ($_ =~ /^#/)
		{ if ($REPORT>=1){print "\nIGNORED COMMENT: $_\n";} }
		else
		{
			chomp($_); # remove xtra return character at end of line
			@line=split(/,/, $_); #split line on comma
			for $Y ( 0 .. $#line ) # number of items in array as split by comma
 			{
				$ConfigFileArray[$X][$Y]=@line[$Y]; # assign item to 2D array
 				if ($REPORT>=1){print " :$ConfigFileArray[$X][$Y]: ";}
			}
			$X++; # increment count of lines
			if ($REPORT>=1){print "\n";}
		}
	}
	close(FILE_IN);
}
#### END OPEN INPUT CONFIG  FILE  AND READ INTO 2 DIMENSIONAL ARRAY #################



### report the contents of 2D array ConfigFileArray ###
sub report_array_contents
{
	print "ARRAY CONTAINS:\n";
	for $X ( 0 .. $#ConfigFileArray ) { for $Y ( 0 .. $#{$ConfigFileArray[$X]} ) { print " :$ConfigFileArray[$X][$Y]: "; } print "\n"; }
}
### END report the contents of 2D array ConfigFileArray ###



##### Make unique list of APPS and LOGICIAL NAMES, store them in  HASHs ####
sub make_unique
{
	for $X ( 0 .. $#ConfigFileArray)
	{
		$Unique_APPS_Hash{$ConfigFileArray[$X][0]}++;
		$Unique_NAMES_Hash{$ConfigFileArray[$X][1]}++;if ($Unique_NAMES_Hash{$ConfigFileArray[$X][1]} > 1){print "LOGICIAL NAMES MUST BE UNIQUE< PLEASE CHECK THE CONFIG FILE! EXITING NOW\n";exit 1}
	}
	if ($DEBUG>=5)
	{
		print "APPS hash\n"; foreach $key (keys %Unique_APPS_Hash){print  "$key $Unique_APPS_Hash{$key}\n";}
		print "NAME hash\n"; foreach $key (keys %Unique_NAMES_Hash){print  "$key $Unique_NAMES_Hash{$key}\n";}
		print "\n\n";
	}
}
##### END Make uniques list in HASH of APPS and LOGICIAL NAMES ####
#### Menu to Stop or Start ###
sub action_menu
{
	@ACTION=('','STOP','START','CHECK');
	while ( $MYACTION eq '' )
	{
		menu_header();
		print "Screen 3 of 4\n";

		print "Choose the ACTION: \n\n";
		print "\tE) EXIT\n";
		print "\tC) CLEAR chosen ACTION\n";
		print "\tD) I'm DONE chosing, proceed to next menu\n\n";
		print "\t1) STOP\n\t2) START\n\t3) CHECK\n";
		sysread(STDIN,$MYACTION,2); chomp ($MYACTION);
		print $clear_string;	

		if ($MYACTION =~ /^[eE]$/) {action_info ("EXIT");exit 1;}
		elsif ($MYACTION =~ /^[1-3]$/) { action_info ($ACTION[$MYACTION]);$CHOSENACTION=$ACTION[$MYACTION];$MYACTION='';}
		elsif ($MYACTION =~ '^[cC]$') { action_info ("CLEAR"); $CHOSENACTION=(); $MYACTION=''; }
		elsif ($MYACTION =~ '^[dD]$') {action_info ("DONE");if (! $CHOSENACTION){print "\n\nERROR: you must choose an ACTION to proceed\n\n";$MYACTION='';}}
		else {action_info ("Invalid choice");$MYACTION='';}
	}
}