sub make_sections {
	my @tmp;
	for (@_) {
		my $fn = $_;
		print "$fn\n";
		my $pnum = substr($fn, 6, 3);
		$pnum =~ s/0//;
		my $section = substr($fn, 5, 1);
		#@tmp = add2arr(@tmp, $section);
		push @tmp, $section;
		$MAIN::PageInfo{$section}{$pnum} = $_;
		s/$MAIN::fileExt/$MAIN::imgExt/;
		$MAIN::PageInfo{$section}{$fn} = $_;
		#print "Name: $PageInfo{$section}{$pnum}  Section: $section  PNum: $pnum  Thumb: $PageInfo{$section}{$fn} \n";
	}
	print "Exiting Make Sections.\n";
	return @tmp;
}

sub add2arr {
	my (@array, $value) = shift;
	#print "Section: $value";
	push @array, $value;
	return @array;
	}