perl list fmap