#!/usr/bin/perl %data = ('google', 'google.com', 'W3xue', 'w3xue.com', 'taobao', 'taobao.com'); print "\$data{'google'} = $data{'google'}\n"; print "\$data{'W3xue'} = $data{'W3xue'}\n"; print "\$data{'taobao'} = $data{'taobao'}\n";