my %elements = (
        hall_name     => $hall_name,
        contact_name  => $contact_name,
        contact_email => $contact_email,
        contact_tel   => $contact_tel,
);

while (my($key, $value) = each %elements) {
  print "$key -> $value<br />";
  $value =~ s/'//g;
}

- or -

foreach my $line (values %elements) {
...
}