use File::Basename qw( dirname );

my @path_list = ...;

my %seen;

my @dir_list = sort                    # Sort dirs
               grep { ! $seen{$_}++ }  # Remove dups
               map  { dirname($_) }    # Extract dirs
               @path_list;
[download]