while ( <FIN>) {
  while ( s#first_expression#do_something#eg ){
    $hashed{$var++};
   }
   #more loops here
}