Select Code to Download

sub check_abn {
    my ($number) = @_;
...
    $sum += 10 * (substr($number, 0, 1) - 1);
    return $sum % 89 == 0
}