my %index;
while (<FILE>) {
    $userid = split(...)     # It's in there somewhere, right?
    $index{$userid} = tell(FILE};
}
# later...
seek(FILE, $index{$userid});
$_ = <FILE>;
($inv, $date, $amt) = split (...);