#!/usr/bin/perl
# sort_subsets.pl

use warnings;
use strict;

# full array contains 1245 tif files, example contains 10

my @fullarray = qw(0001.tif 0002.tif 0003.tif 0004.tif 0005.tif 0006.tif 0007.tif 0008.tif 0009.tif 0010.tif)

my @subsetA ()
my @subsetB ()