$a = 2192;        # Starting number
# Ben = 5, Scott = 4, Jim = 1, more to be added later
for (0..98){
    my $b=$a + 200; 
    my $name = $_ % 10 < 5 ? "Ben" :
        $_ % 10 > 8 ? "Jim" :
        "Scott";
    print "$a-$b\t\t$name", "\n";
    $a+=201;
}