my $file = "file2";
open (my $FILE, "<", $file) or die "Error in reading '$file': $!\n";
while (my $line = <$FILE>) {
  chomp($line); # zeilenumbruch am ende weg

  my @columns = split(/,/, $line); # aufsplitten
  my $key = $columns[3]; # 0,1,2,3

  if (exists $lut{$key}) { # ist was vorhanden?

    # entweder die lange version
    my @fields = @{ $lut{$key} }; # komplett dereferenzieren
    print "@columns: Ergebnis: $fields[2]\n";

    # oder kuerzer, ohne @fields in einer zeile: 
    # print "@columns: Ergebnis: $lut{$key}->[2]\n";
  } # if

  else {
    print "Fehler: fuer '$key' jibbet nix\n";
  } # else
} # while
close ($FILE);