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 @temp = split(/\//, $columns[3]); # aufsplitten
 my $key = $temp[0]; # 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

} # while

close ($FILE);