grep { (@$_ > 2 && $_->[2] eq Brookline) && (@$_ > 7 && int($_->[7]) > 65) }
$0 myt22da2.3keep1.cgi
sam@sam.com
ook@goo.com
Got it!$VAR1 = [
[
'sam@sam.com',
'Ling',
'Boston',
'MA',
'USA',
'M',
'16',
'61'
],
[
'Frank@franky.com',
'Chan',
'Boston',
'MA',
'USA',
'M',
'20',
'70'
],
[
'plee1350@yahoo.com',
'Lee',
'Brookline',
'MA',
'USA',
'F',
'20',
'60'
],
[
'Wong1350@yahoo.com',
'Wong',
'Brookline',
'MA',
'USA',
'F',
'30',
'90'
],
[
'Tong1350@yahoo.com',
'Tong',
'Brookline',
'MA',
'USA',
'F',
'10',
'80'
],
[
'some@some.com',
'null',
'null',
'null',
'null',
'M',
'18',
'81'
],
[
'Fsome@some.com',
'null',
'null',
'null',
'null',
'F',
'18',
'81'
],
[
'goodman@whatever.com',
'null',
'null',
'null',
'null',
'M',
'10',
'50'
],
[
'someone@someemail.com',
'Some',
'SomeCity',
'MA',
'USA',
'F',
'20'
],
[
'sksk',
'Chen',
'Boston',
'MA',
'ss',
'F',
'10',
'100'
],
[
'okok',
'LEE',
'Brookline',
'MA',
'USA',
'M',
'40',
'60'
],
[
'okok@ok.com',
'LEE',
'Brookline',
'MA',
'USA',
'M',
'40',
'65'
],
[
'fmdk@gmail.com',
'null',
'null',
'null',
'null',
'null',
'null',
'null'
],
[
'fmdk@gmail.com',
'vfgb',
'f',
'f',
'g',
'f',
'gg',
'd'
],
[
'ff',
'f',
'f',
'f',
'f',
'hg',
'h',
'h'
],
[
'dg',
'dfd',
'dff',
'yyy',
'err',
'r',
'10',
'60'
],
[
'plee1470@yahoo.com',
'LEE',
'Brookline',
'Massachusetts',
'United States',
'M',
'20',
'70'
],
[
'ook@goo.com',
'Lee',
'Boston',
'MA',
'U.S.A.',
'F',
'18',
'50'
]
];
The search result:
The search result:
$VAR1 = [
[
'Wong1350@yahoo.com',
'Wong',
'Brookline',
'MA',
'USA',
'F',
'30',
90
],
[
'Tong1350@yahoo.com',
'Tong',
'Brookline',
'MA',
'USA',
'F',
'10',
80
],
[
'plee1470@yahoo.com',
'LEE',
'Brookline',
'Massachusetts',
'United States',
'M',
'20',
70
]
];