#!/usr/bin/perl
use strict;
use warnings;

my $path="/foo/bar/";
opendir (DIR, $path) or die "Could not open directory: $!";

@files = readdir(DIR);

foreach my $file (@files) {
   print  "$file\n";
}

##</code><code>##

 
print map {$_ = "$_\n";} @files;