Help for this page
a( {-href=>$_ }, \@list )
for (@list) { print a({-href=>$_},$_); ... # or print map {a({-href=>$_},$_) } @list;