<>;$w+=++$_&1||3for@a[glob`dd`];print$w>>2