This is my first good search CGI program

grep { (@$_ > 2 && $_->[2] eq Boston) && (@$_ > 7 && int($_->[7]) > 65) } 

$0 myt22da2.3keep.cgi
sam@sam.com
dg
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',
            '90'
          ],
          [
            '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',
            '70'
          ],
          [
            'okok@ok.com',
            'LEE',
            'Brookline',
            'MA',
            'USA',
            'M',
            '40',
            '70'
          ],
          [
            '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'
          ]
        ];


The search result:

The search result:
$VAR1 = [
          [
            'Frank@franky.com',
            'Chan',
            'Boston',
            'MA',
            'USA',
            'M',
            '20',
            70
          ],
          [
            'sksk',
            'Chen',
            'Boston',
            'MA',
            'ss',
            'F',
            '10',
            100
          ]
        ];