use strict;
use File::Slurp;

my $filename = shift;
my @lines    = read_file($filename);
my $counter;

for( @lines ){
    ++$counter > 200 and last;
    s/\r?\n//;
    write_file("$counter-$_.cvs");
}