use strict;

my %passwd;
while (<DATA>) {
   my ($id,$email,$user,$passwd) = split;
   $passwd{$user} = {
      id     => $id,
      email  => $email,
      passwd => $passwd,
   };
}

my @other_array = @ARGV[0,1];

my $user = $passwd{$other_array[0]} || die "bad user";
die "bad password" unless $other_array[1] eq $user->{passwd};

__DATA__
1028804576 nasa@dodo.com.au name password
1028804590 nasa@dodo.com.au name2 pass2
1028804598 who@where.com again anouther