if (-d $array[1]) {
    print "$array[1]\n";
}