#!/usr/bin/perl
my @filename = qw{filename1 filename2 filename3};
my @datas =qw{DATA1 DATA2};
my $i;

$i=0;
while($i < scalar(@filename)) {
$count = `grep -c "$data[$i]" $filename[$i]`;

print "$tags[$i]:$count\n";
  $i++;
}