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