Re^3: split line from one point

[moritz]

That means that the first open() call failed. Either use autodie; in the beginning, or write your calls as

open my $IN, '<', 'transaction' or die "Cannot open 'transaction' for 
+reading: $!";
...
while (<$IN>) {
   ...
}

(And adapt the code for the second file accordingly).