#!/usr/bin/perl use strict; use warnings; my @filename = qw{filename1 filename2 filename3}; my @data =qw{DATA1 DATA2}; foreach my $file (@filename) { foreach my $searchdata (@data) { my $cmd_results = `grep -c $searchdata $file`; print "$file | $searchdata | $cmd_results \n"; # or whatever tags refers to... } }