#/usr/bin/perl

use strict;
use warnings;
use 5.010;

BEGIN{ @ARGV=map glob, @ARGV }

print "File Number    A    A%    B    B%    Null    Null%";

my $default = '';  # set to something sensible, the empty string seems good.
my @allowed = (qw/stringa stringb/, $default);
my (%count, $filenum);

while(<>) {
    chomp;
    $count{$_ ~~ @allowed ? $_ : $default}++;
    if (eof) {
        $filenum++; 
        say "$filenum       ", join '    ' =>
          map { my $x=$count{$_}; $x, sprintf('%.2f', $x/1000) } @allowed;
        @count{@allowed}=(0) x @allowed;
    }
}

__END__