foreach my $line (@elements) {
  print "$$line<br/>";
  ...
}