my @paths = (
          'C:\\foo\\bar\\baz',
          'C:\\foo\\bar',
          'C:\\car',
          'C:\\c'
        );

my @nested = grep {
  my $candidate = $_;
  grep $candidate =~ /^\Q$_\E\\/, @paths
} @paths;

print "$_\n" for @nested;