my $letzte_zeile = ((split(m/\,/, ((reverse sort grep {$_ =~ m/\d+,\d+/} keys(%{$table->cget(-variable)}))[0])))[0]);