#!/usr/bin/perl -a
use 5.10.0;
$n++while pop@F;say$n