$pscemail1 = $pointer->{'pscemail1'};
		$pscemail2 = $pointer->{'pscemail2'};
		$pscemail3 = $pointer->{'pscemail3'};
		$pscemail4 = $pointer->{'pscemail4'};
		$pscemail5 = $pointer->{'pscemail5'};
		$pscemail6 = $pointer->{'pscemail6'};
		$pscemail7 = $pointer->{'pscemail7'};
		$pscemail8 = $pointer->{'pscemail8'};

##</code><code>##

@email = ($email,$pscemail1,$pscemail2,$pscemail3,$pscemail4,$pscemail5,$pscemail6,$pscemail7,$pscemail8);
			
foreach $toemail (@email) {
Send the email
}