push @all_handles, $fh;

##</code><code>##

my $fh = pop @all_handles;

##</code><code>##

for my $fh (@all_handles) {
   ...;  # do something with $fh
}

##</code><code>##

my $count_filehandles = @all_handles;