my@=<$Email>;
if (@a) {
foreach $Address(@a)
{
$Recipient=$Address;

}
}