This is a great opportunity to use map especially if you are going to need the path again later in your script. From your code Untested:

#!/usr/bin/perl

$path=".";

opendir (DIR, $path) or die "could not open directory";

@files = map {"$path/$_"}, readdir(DIR); #maps the path into your arra
+y


foreach (@files) {

print  "$_ \n" if (-d $_) ;

          }
[download]

Update: Thanks merlyn