初歩的な質問でごめんなさい。
一念発起して、リャマ本を勉強中です。
３の倍数を使う練習問題やってる中で、%の存在を忘れていて、
サブルーチンでひたすら引き算してゼロになったら...って
思っていたんですけど、うまくいきませんでした。
なにがいけなかったんでしょうか。

chomp(my $input = <STDIN>) ;
given( $input ) {
when ( ! /^¥d*$/ ) { say "数じゃない" }
when ( 0 == &amari3($_) ) { say "３の倍数" ; continue }
}
sub amari3 {
while( $_[0] > 0 ) {
$_[0] -= 3 ;
}
}