I want to compare what is in $ARGV[0] an array that I created from a file that contains single line entries.

  #! c:\perl\bin -w
   use strict;
    open downfile, '>f:\scripts\text\nodedown.txt':
     print downfile "$ARGV[1] $ARGV[2] is Down on $ARGV[0].\n";
    close downfile;
    $routers="F:/scripts/text/routers.txt";
      open routers, $routers or die "cannot open $routers: \n";
    @lines=<routers>
    my ($zero_arg, $first_arg, $sec_arg) = @ARGV[0..2];
    if (grep {$zero_arg eq $ARGV[0]} @lines) {
           system('f:\usr\ov\bin\nvecho.exe GOT IT');
      }
      close routers;
exit 0;
[download]

Originally posted as a Categorized Question.