for ( qw( This is new to me ) ) {
    print "$_\n";
    open(PIPE, "dir|") or die $!;
    while (<PIPE>) { # <--- This is the line that the error points to
        print $_; 
    }
}
__DATA__
This
Modification of a read-only value attempted at script line 4.