for($i = 0; $i <= 255; $i++)
{
$var =   sprintf '%b', $i;
$anzahl = $var =~ tr/1//;
print $anzahl;
}