foreach my $a (@filenames) {
    print "$a <p>Name:$_</p>";
    }
print "<hr />";