#!/uer/bin/perl %data = (-taobao => 45, -google => 30, -W3xue => 40); @array = @data{-taobao, -W3xue}; print "Array : @array\n";