Select Code to Download

$foreigner{abdul} = 1;
$foreigner{marcus} = 1;
...
    $income2 = $gross_income{$Person}   and
    $income2 < 50_000
}

@avg_taxpayers = grep {average_taxpayer} keys %gross_income;