#!/usr/bin/perl -w
use strict;
use File::Find;
use Data::Dumper;

my @files = ();  #will be an Array of Hashes
my $odd =1;

sub filer
{
    my $filepath_rs = $File::Find::name;
    return unless -f $filepath_rs;
  
    push(@files, {file=>$filepath_rs, OddEven => $odd}); 
    $odd ^= 1;
}

find(\&filer, 'C:/temp');

print Dumper \@files;

##</code><code>##

#!/usr/bin/perl -w
use strict;
use File::Find;
use Data::Dumper;

my @files = ();  #will be an Array of Hashes
my $odd =1;

sub filer
{
    my $filepath_rs = $File::Find::name;
    return unless -f $filepath_rs;
    
    my %metadata;
    $metadata{file} = $filepath_rs;
    $metadata{OddEven} = $odd;
  
    push(@files, \%metadata); 
    $odd ^= 1;
}

find(\&filer, 'C:/temp');

print Dumper \@files;