my $einkommen = 45000;

print steuer($einkommen), "\n";

sub steuer
  {
  my $ein = shift;
  my ($steuer, $y);
  # Zahl muss abgerundet werden 
  $ein = int($ein / 54) * 54;

  if ($ein < 4753)
    { $steuer = 0; }
  elsif ($ein < 18036)
    { $steuer = 0.22 * $ein - 1045; }
  elsif ($ein < 80028)
    {
    $y = ($ein - 17982)/10000.0;
    $steuer = (((0.34*$y - 21.58)*$y + 392)*$y + 2200)*$y + 2911;
    }
  elsif ($ein < 130032)
    {
    $y = ($ein-79974)/10000.0;
    $steuer = (70*$y + 4900)*$y + 26974;
    }
  else 
    { $steuer = 0.56 * $ein - 19561; }
  return($steuer);
  }