#!/usr/bin/perl -w
 #
 # Get infos of the dsmaccnt-file 

 use strict;
 use Data::Dumper;

 # some vars
 my $filename = "aaa";
 my @transferInfos = qw/wort1 wort2 wort3 wort4 wort5 .../;
 my @allTransfers;
 my %nodeTransfer;
 
 # read file
 open (IN,"<$filename") || die $!;
 while (<IN>){
          if ( grep {/\b$node\b/i} $_) {
                  @nodeTransfer{@transferInfos} = (split /,/, $_)[3,4,5,12,14,16,18,19];
          }
 }
  
 print Dumper(\%nodeTransfer);