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

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

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