a( {-href=>$_ }, \@list )

##</code><code>##

for (@list) {
   print a({-href=>$_},$_);
}

# or
print a({-href=>$_},$_) for @list;

# or
print map {a({-href=>$_},$_) } @list;