Don't put the result from split in another list:

# this splits the e-mail by @ and puts it into a list.
# That contains now {gregor lanifex.com}
set mail_result [split $mail @]