use strict;
use warnings;

my @filenames = qw{filename1 filename2 filename3};
my @datas =qw{DATA1 DATA2};

foreach my $filename (@filenames) {
    foreach my $data (@datas) {
        print "grep -c $data $filename \n";
    }
}