my $erg = $elem[0];
$erg =~ tr/0-9//cd;