foreach my $elm (@werte)
{
    print $elm[0];
}