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