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

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

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