my %seen;
my @exts = grep !$seen{$_}++, map /\.([^.]+)\z/, @file_names;