#!/usr/bin/perl -w
use strict;
use diagnostics;
my @dirvar="";
my $foreachvar="";

opendir(DIRHAN,"/xxx");
@dirvar = readdir(DIRHAN);
print "@dirvar\n";
closedir(DIRHAN);

foreach $foreachvar (</xxx/*>)
   { if (-f $foreachvar) {print "$foreachvar \n" } }