Select Code to Download

        $pscemail1 = $pointer->{'pscemail1'};
        $pscemail2 = $pointer->{'pscemail2'};
...
        $pscemail6 = $pointer->{'pscemail6'};
        $pscemail7 = $pointer->{'pscemail7'};
        $pscemail8 = $pointer->{'pscemail8'};

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