use CGI qw/:standard /;
use File::Basename;

my @links = map { a( {-href=>$_}, fileparse($_)[0] ) } @files;