$ perl -E '
    my @answers = qw{x y z};
    say "Total: ", scalar(@answers);
    say "Total: ", 0+@answers;
    say "Total: @{[scalar @answers]}";
    say "Total: @{[0+@answers]}";
'
Total: 3
Total: 3
Total: 3
Total: 3