String Zeilenweise durchlaufen

[Perl Anfänger]

Hi

hier ist mein Code, der im Moment das tut, was ich verlange

#!/usr/bin/perl -w  
  
use DBI;  
use strict;  
  
my @stdin = <STDIN>;  
my $id = 0;  
  
$id = ....  
  
if($id > 0){  
  my $check = 0;  
  foreach(@stdin){  
    $_ = chomp($_).",WORT2\n" if($_ =~ /^[ \t]*[^#]?\WORT1\b/ and $check = 1);  
  }  
  push @stdin, "WORT1 WORT2\n" if($check == 0);  
}  
print foreach @stdin;

ob das jetzt nahc perl-manier ist, kann ich leider nicht beurteilen

Danke!