my@l= =open@ARGS[0]; for @l {print @l.pop}