Another way to get the names of files in a directory would be to use the glob function.

for example:

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

my @files = glob("*"); 
map { print "files: $_\n" } @files;
[download]