use strict; use warnings; my( @slurp ) = <>; @slurp = reverse @slurp; print @slurp;