my $directory = ('../htdocs/archive/');

my $prefix = 'Arch';
my $suffix = 'php';
my @dateien = glob($directory.'/'.$prefix.".*".$suffix);

opendir DIR, $directory or die $!;
while( my $entry = readdir DIR ){
print "<h1>";
print $entry,"\n<br>";
print "</h1>";
}
closedir DIR;