use strict;
use warnings;

my $build = 'C:\mydir';

opendir DIR, $build or die "cannot open directory $build: $!";

my @allprojects = grep { $_ ne '.' && $_ ne '..'} readdir DIR; 
my @indexfiles;
my @parts;
my $i = 0;
my $indexfiles;

foreach my $build (@allprojects) 
{ 
	@parts = split(/_/, $build); 
	 							
	if ($parts[0] == 'ABC')
	{
		$indexfiles[i] = $parts[0].'_'.$parts[1].'_'.'INDEX.html';
	}
	else 
	{
		$indexfiles[i] = $parts[0].'_'.'index.html';
	}
	
	++$i;
	
	print $indexfiles, "\n";
}

closedir DIR;