#!/usr/bin/perl

use warnings;
use strict;
use File::Find;
use Parallel::ForkManager;

my @toUnlink; #ARRAY THAT IS NAUGHTY 


my $maxProcs = 3;
my $pm = new Parallel::ForkManager($maxProcs);

foreach my $keySets (keys %chunked){

	foreach ( @{$chunked{$keySets}} ){
		my $pid = $pm->start and next;

		my $cychpTxtFile = $fileManifest{$encryptKey}.".txt"; #Im not showing you the whole script, but this works

		if ( -e $cychpTxtFile ) {
	
				push @toUnlink, $cychpTxtFile;  # WHY WONT YOU WORK!
				
				print $cychpTxtFile."\n";  #PRINTS TO THE SCREEN
				
				
		}
	

	$pm->finish;	
						      
	}

	print @toUnlink."\n"; # NADA


		
}	

			

$pm->wait_all_children;




##</code><code>##

0
/Users/.../Desktop/cychip/cyto/Oligo/Oligo 2013/010613ES/010613ESA ABN. CONTROL_(CytoScanHD_Array)_2012.cyhd.cychp.txt
0
/Users/.../Desktop/cychip/cyto/Oligo/Oligo 2013/010613ESA ABN. CONTROL_(CytoScanHD_Array)_2012.cyhd.cychp.txt
/Users/.../Desktop/cychip/cyto/Oligo/Oligo 2012/010613ESA ABN. CONTROL_(CytoScanHD_Array)_2012.cyhd.cychp.txt
/Users/.../Desktop/cychip/cyto/Oligo/Oligo 2012/milk/010613ESA ABN. CONTROL_(CytoScanHD_Array)_2012.cyhd.cychp.txt
0
/Users/.../Desktop/cychip/cyto/Oligo/Oligo 2012/eggs/010613ESA ABN. CONTROL_(CytoScanHD_Array)_2012.cyhd.cychp.txt
/Users/.../Desktop/cychip/cyto/Oligo/Oligo 2012/coffe/010613ESA ABN. CONTROL_(CytoScanHD_Array)_2012.cyhd.cychp.txt