sub add { 
    $x = 0;
    for (1..9) {
        $x = $x + $_;
    }
    print $x;
}