'steuer2010' => [
"steuer2010\t\tSteuer2010 - ESt und SolZ ",
sub
{

print "\n\nzu versteuerndes Einkommen: "; chomp (my $x = <STDIN>);