Select Code to Download

#!/usr/bin/perl
my @filename = qw{filename1 filename2 filename3};
...
print "$tags[$i]:$count\n";
  $i++;
}

grep -c data1 filename1 
grep -c data2 filename1 
...
grep -c data2 filename2
grep -c data1 filename3
grep -c data2 filename3