#!/usr/bin/perl --
use strict; use warnings;
my $data = "Region Item volume Month";
my @da = split /\s+/, $data;
for my $daix ( 0 .. $#da ){
    $_ = $da[$daix];
    /volume/        and print "volume $daix\n";
    /Item/          and print "Item $daix\n";
    /(volume|Item)/ and print "$1 $daix\n";
}
__END__