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