# handle last line in loop
    if ( not defined $q[1] ) {
         $q[1] = $q[0];
         $q[0] = "\n";
          do_something( \@q);
          last;
     }