print'Datensätze: ';for(1..int(<STDIN>)){print'Name: ';chomp($n=<STDIN>);R:print'E-Mail: ';chomp($e=<STDIN>);$e!~/^\w+\@[\w.]+$/&&goto(R);push@l,[$n,$e]}print"$$_[0], $$_[1]\n"for sort{$a->[0]cmp$b->[0]}@l;