use File::Glob ':glob';
use Data::Dumper;

my $pattern = "C:/Program Files/*";
my @ary1 = bsd_glob("$pattern");
my @ary2 = bsd_glob("$pattern");
my @ary3 = bsd_glob("$pattern");
print Dumper(\@ary1);