***** FILE 1 Orlando *****
                        FLORIDA 
         Inventory Report   CITY: Orlando     Page1 
111    Item1                      $1000 
222    Item2                      $2000 
449    Item3                      $9999

***** FILE 2 Miami ******** Should RESET the Page # to 1 *****
                         FLORIDA
         Inventory Report   CITY: Miami     Page2
349    Item1                      $3050


                        FLORIDA
         Inventory Report   CITY: Miami     Page3
349    Item1                      $3050
224    Item2                      $2340
982    Item3                      $9029


##</code><code>##

my ($file);
my $time = time;
use POSIX 'strftime'; 
my $runtime = strftime '%Y/%m/%d %H:%M:%S', localtime;
print $runtime;

my $page_count = 0;


while (<FILE>){
	chomp($_);
	if ( /CITY/ ... /FLORIDA/ )
        {
          my $county=0;
          
          if ( ($file) = $_ =~ m/CITY:\s+(\w+)/ ) {
	    close(FH);
	    
	    dynamic();
	    
	    if ($file != $var)
	    {
	      $page_count = 0;
	    }  
	    
	    $file .= '.txt';
 
	    open(FH, ">> CORAGN$file");
	    ++$page_count;
	    	    
	    print FH "RUN DATE/TIME:  $runtime                          DEPT OF INFO SYSTEM                                   REPORT: COSRAGIN\n";
	    print "                                            STATEWIDE DAILY  REPORT                        PAGE:	$page_count\n";
     }
        
	print FH "$_\n" unless $_ =~ m/FLORIDA/;
	
	} 
	
} 

close FILE;
closedir DIR;


sub visible {
	print "\nvar has value $var";
	print "\nfile has value $file";
	
    }
    
sub dynamic {
  
  local $var = $file;
  visible();
}