$ perl -E 'say scalar(() = ($a, $b, $c))'
3
$