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

##</code><code>##

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