push????

if ($_put{firma} ne "") {
out<<EOF;
Firma: $_put{firma}
EOF
}

if ($_put{firma} ne "") {
$mailtext=<<EOF;
Firma: $_put{firma}
EOF
}

foreach $key (keys (%_put)){
    $mailtext.=uc($key).": $_put{$key}\n" if($_put{$key});
}

$mailtext
", 'Emailadresse', "$_put{vorname} $_put{name}", "Anfrage", "", "";

@wanted=('firma','vorname','name','usw');

    $mailtext.=uc($key).": $_put{$key}\n" if($_put{$key});
}