用法：
grep BLOCK List
grep EXPR, List
遍歷List中的元素箕速，存于$_中。返回List中使BLOCK或EXPR為真的元素的子列表。
例如：
my @list = qw(apple banana pear);
my @return_list1 = grep /apple/,@list;
@return_list1中的元素則為qw(apple)杀怠，@list中的元素"apple"是/apple/為真恕汇。
my @return_list2 = grep {1} @list; #或
my @return_list2 = grep {0;0;1} @list;
@return_list2中的元素則為qw(apple banana pear)腕唧，無論@list中的元素為何，BLOCK均為真瘾英。
my @return_list3 = grep {0} @list; #或
my @return_list3 = grep {1;1;0} @list;
@return_list3中的元素則為空枣接，無論@list中的元素為何，BLOCK均為假缺谴。
- 可以用來判定列表中是否存在某個值但惶；
... ...
