use File::Find::Rule;
use Data::Dumper;

my $rule = File::Find::Rule->new;
$rule->file;
$rule->name( '*.zone' );
my @files = $rule->in("/home/dns");

##</code><code>##

%hash = map { $files[$_], $_ + 1 } 0 .. $#files;

foreach my $name (sort keys %hash) {
my $host = $hash{$name};
print $host;

my %row = {
     name => $name,
  };