my @result = map {
    ....
    defined $retval ? $retval : ()
} @array;