foreach (@data) {
  next if $_ eq "." || $_ eq "..";
  push @dir, $_ if -d "./desktop/$_";
}