>perl -wle"$r=[]; print eval { %$r || 1 }