#!usr/bin/perl

use strict;
use warnings;

my @directories = ( '/dir1', '/dir1/imgs' );
my @files;

setup($_) for @directories;

sub setup {
my $dir = shift;	
@files = file_list($dir);
}

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


sub file_list {
    my $directory = shift;
    opendir( DIR, $directory ) or die "Can't open $directory: $!";
    my @files = grep( !/^\.\.?$/, readdir(DIR) );
    closedir(DIR);
    return @files;
}