for loop with .lines

foo.p6

#use Slang::Tuxic;
#use Text::CSV;
#use File::Find;

my $csv_line = ‘foo’; # Text::CSV.new (eol => "\n");
my $cols = 49;

my @IO-object-list = < a b c >; #find(:dir</home/user1/documents/animals>, :type<file>, :name(/armadillos_201<[4..8]>.*\.csv/));

for @IO-object-list -> $IO-object {
    my $out = $IO-object.path.subst(/\.csv/, '_edit.csv');
    my $fh = $out.IO.open: :w;
    my $contents = $IO-object.slurp;
    # for $contents.lines() -> Str $line {    # this works
    for $contents.lines -> Str $line {        # this doesn't
        if $csv_line.parse($line) {
            if $csv_line.strings.elems lt $cols {
                my $pad = ',' x ( $cols - $csv_line.strings.elems );
                $fh.put: $line ~ $pad;
            } else { $fh.put: $line }
        }
    }
    $fh.close;
}