$Library_Index{<$Library>} = tell($library), scalar <$Library> until eof($Library);