{
   my $line = <DATA>;
   chomp $line;
   $line =~ s/^\s+//:   

   # handles '$lines[0]'
   sub peek {
       return $line;
   }
  
   # handles 'shift @lines'
   sub next_line {
       my $tmp = $line;
       $line = <DATA>;
       chomp $line;
       $lines =~ s/^\s+//;
       return $tmp;
   }

   # handles boolean check for @lines
   sub is_exhausted {
       return !defined $line
   }
}