perldoc -f defined for 5.8.1 (and earlier, I believe) lists defined as deprecated for aggregates. Besides that, an array in scalar context returns the number of elements. Just do:

if (@one)
{
   ...
}
[download]