#!/usr/bin/perl -w
use strict;
$| = 1;
my @coders = qw(kristin madison scott sean steve zeb);
my @files = qw( 17524106
18033790
19683851
27033992
3987896
4058888
4139141
4454294
5303897
5380762
);
foreach my $f (@files) {
    foreach my $c (@coders) {
        my $fn = "round1/$c/$f\.txt";
        open(my $in, $fn);
        print "$f\t$c\t$!\n";
        close $in;
    }
}