while (.......){
  #read line x
  print ("processing line: $linenum ");
}