$a = 0;
if ($b eq "10") {
foreach $member @members {
$a++;
until ($a = 10) {
print <<EOF;
$member
EOF
if ($a eq "20") {
last;
}#until
}#foreach
}
else {

foreach $member @members {
$a++
print <<EOF;
$member
EOF

until ($a = 10) {
last;
$b = 10;
}

}

}#foreach
#else