#!/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";