#!/usr/bin/perl

use strict;

my @array = (
'0001.tif ', "\n",
'0002.tif ', "\n",
'0003.tif ', "\n",
'0004.tif ', "\n",
'0005.tif ', "\n",
'0006.tif ', "\n",   
'0007.tif ', "\n",    
'0008.tif ', "\n",   
'0009.tif ', "\n",
'0010.tif ', "\n");

my @even = grep ($_ % 4 == 1, @array);
print "@even\n";

my @odd = grep ($_ % 4 - 1 == 1, @array);
print "@odd\n";