my @split = split(/\./,$file);
  my $key = $split[1];