#!perl -pla
$_=grep$F[0]>>=1,%!