Reading file backward in perl? (Slightly OT)