scalar @{$list};
じゃだめ?