用perl从数据