$ perl skript.pl > ausgabe.txt

#!/usr/bin/perl
# vi: set ts=4 sw=4 sts=2 et:
use strict;
use warnings;

# Author:   linuxer
# Date:      02. June 2008

# Description:
#       http://board.perl-community.de/thread/11962/#MSG0



my %verb;

# 1st step: read all verbs into a hash

{
    my $verb_file = 'koroesi.txt';

    open my $fh, '<', $verb_file or die "$verb_file: open(ro) failed: $!\n";

    # store all verbs in array;
    my @verbs = <$fh>;
    # remove all newlines
    chomp @verbs;
    # store all verbs as hash keys
    @verb{@verbs} = ();

    close $fh or die "$verb_file: close(ro) failed: $!\n";
}


# 2nd step: do the work
{
    my $check_file = 'svc_test_sdl.txt';

    open my $fh, '<', $check_file or die "$check_file: open(ro) failed: $!\n";

    while ( my $line = <$fh> ) {

        # split at whitespace (beware: newlines are whitespaces, so no chomp needed)
        my ( $noun, $verb, $number ) = split /\s+/, $line;

        # if $verb is defined, assume all variables are correctly filled
        if ( defined $verb ) {

            # is $verb a key in hash %verb?
            if ( exists $verb{$verb} ) {
                # print the modified data
                printf "%s [%s] %s\n", $noun, $verb, $number;
                # oder ohne printf
                #print $noun, " [$verb] ", $number, "\n";
            }
            # if not
            else {
                # print unmodified line
                print $line;
            }
        }
    }

    close $fh or die "$check_file: close(ro) failed: $!\n";

}

__END__