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