use strict;
my $filename = 'my_textfile.txt';
open my $fh, $filename
    or die "Couldn't read '$filename': $!";

chomp @ARGV = <$fh>;

print "Processing $_"
    for @ARGV;

##</code><code>##

use strict;
use File::Find;

my $directory = '/home/kelder/files';

find(sub {
    push @ARGV, $File::Find::name;
}, $directory );

print "Processing $_"
    for @ARGV;

##</code><code>##

use strict;
use File::DosGlob qw(bsd_glob); # to get sane whitespace semantics

my $pattern = '/home/kelder/files/*.txt';

@ARGV = glob $pattern;

print "Processing $_"
    for @ARGV;