my @stack;
while( <> ) {
    push @stack, $_;
}
while(  @stack  ) {
    local( $_ )= pop @stack;
    # your code here
}