use strict;
use warnings;
use Tie::File;

tie my @filelines, 'Tie::File' or die $!;

foreach ( @filelines ) {
    $_ = '# ' . $_ if /\btest\b/;
}

untie @filelines or die $!;