Select Code to Download

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

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

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