'steuer2010=s' => [
"steuer2010 <Einkommen>\t\tSteuer2010 - ESt und SolZ ",
sub
{
my $x=shift;

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