sub Create {
	my ( $sourcePath, $destinationPath ) = @_;
	# ... create directories and stuff ...

	my $tq = Thread::Queue->new();

	for (1..5) {
		push @arrThreads, threads->create(
			sub {
				while (defined(my $item = $q->dequeue())) {
					DoSomethingWithItem($item, $sourcePath, $destinationPath);
				}
			}
		);
	}

	while (my ($k, $v) = each(%hashFileList)) {
		$tq->enqueue( $v );
	}
	$tq->end();
	foreach (@arrThreads) {
		my $num = $_->join;
	}
}