while (<READ_FILE>) {
  if ($cur_code == $area_code) {
  //Some logic here
  }
  else{
    $cur_code = $area_code;
    if($first_time == 1){
      $first_time = 0;
      next;                      # not last
    }
  }
}
continue {
  print "Hello";
}
[download]

perldoc -f continue, perldoc perlsyn