my @elements=(\$hall_name,\$contact_name,\$contact_email,\$contact_telephone);

foreach my $line (@elements) {
  print "$line<br/>";
  $line=~s/'//g;
}