This is my first good login CGI program


grep  { (@$_ > -1 && $_->[0] eq $username) && (@$_ > 0 && $_->[1] eq $password)} 

plee
null
Got it!$VAR1 = [
          [
            'plee',
            'west1',
            'Sun Oct 22 03+36+04 UTC 2023'
          ],
          [
            'paul',
            'west',
            'Sun Oct 22 03+43+57 UTC 2023'
          ],
          [
            'Sam',
            'west',
            'Sun Oct 22 03+44+11 UTC 2023'
          ],
          [
            'Frank',
            'west',
            'Sun Oct 22 03+46+39 UTC 2023'
          ],
          [
            'plee',
            'west2',
            'Sun Oct 22 03+54+03 UTC 2023'
          ],
          [
            'plee',
            'west3',
            'Sun Oct 22 04+02+13 UTC 2023'
          ],
          [
            'plee',
            'west4',
            'Sun Oct 22 04+10+08 UTC 2023'
          ],
          [
            'dan',
            '231',
            'Mon Oct 23 04+41+43 UTC 2023'
          ],
          [
            'ddd',
            'eee1',
            'Mon Oct 23 05+13+47 UTC 2023'
          ],
          [
            'ddd',
            'eee2',
            'Mon Oct 23 05+14+45 UTC 2023'
          ],
          [
            'ddd',
            'eee3',
            'Mon Oct 23 05+16+50 UTC 2023'
          ],
          [
            'plee',
            'west',
            'Tue Oct 24 16+57+39 UTC 2023'
          ],
          [
            'plee',
            'west',
            'Tue Oct 24 16+59+41 UTC 2023'
          ],
          [
            'plee',
            'west',
            'Tue Oct 24 16+59+43 UTC 2023'
          ],
          [
            'plee',
            'west',
            'Tue Oct 24 17+00+23 UTC 2023'
          ],
          [
            'plee',
            'west',
            'Tue Oct 24 17+00+25 UTC 2023'
          ],
          [
            'plee',
            'west',
            'Tue Oct 24 17+00+32 UTC 2023'
          ],
          [
            'null',
            'null',
            'Wed Nov  1 16+53+38 UTC 2023'
          ],
          [
            'null',
            'null',
            'Wed Nov  8 10+30+37 UTC 2023'
          ],
          [
            'null',
            'null',
            'Wed Nov  8 10+30+40 UTC 2023'
          ],
          [
            'null',
            'null',
            'Mon Nov 13 16+29+18 UTC 2023'
          ],
          [
            'null',
            'null',
            'Tue Nov 14 09+25+44 UTC 2023'
          ],
          [
            'null',
            'null',
            'Sat Nov 18 16+23+09 UTC 2023'
          ],
          [
            'null',
            'null',
            'Sat Nov 18 16+36+30 UTC 2023'
          ],
          [
            'null',
            'null',
            'Sat Nov 25 21+53+28 UTC 2023'
          ],
          [
            'null',
            'null',
            'Sat Nov 25 21+53+31 UTC 2023'
          ],
          [
            'null',
            'null',
            'Fri Jan 26 13+47+12 UTC 2024'
          ],
          [
            'null',
            'null',
            'Fri Jan 26 14+39+42 UTC 2024'
          ],
          [
            'null',
            'null',
            'Tue Feb  6 19+27+31 UTC 2024'
          ],
          [
            'null',
            'null',
            'Fri Feb 23 10+17+34 UTC 2024'
          ],
          [
            'null',
            'null',
            'Fri Feb 23 10+26+14 UTC 2024'
          ],
          [
            'null',
            'null',
            'Wed Mar  6 03+39+19 UTC 2024'
          ],
          [
            'null',
            'null',
            'Wed Mar  6 16+01+54 UTC 2024'
          ],
          [
            'null',
            'null',
            'Wed Mar  6 17+10+04 UTC 2024'
          ],
          [
            'null',
            'null',
            'Tue Mar 12 13+05+27 UTC 2024'
          ],
          [
            'null',
            'null',
            'Tue Apr  9 12+38+09 UTC 2024'
          ],
          [
            'null',
            'null',
            'Sun Apr 28 08+30+06 UTC 2024'
          ]
        ];
$v  
$v  
$v  
$v  
$v  

$_ m

$_ m

$_ m

$_ m

$_ m The search result:

The search result:

$VAR1 = []; not found as