my @element = ( $hall_name, $contact_name, $contact_email, $contact_telephone ); s/'//g for @element; print map "$_
", @element;