print		table( Tr[ map { td[ a( {-href=>"http://www.somedomain/script.pl?path=$path/$_" )  }, $_ ) ] } @list ] );