my $linenum = 1;
my $lastline = 200;
my %user_login;
while (my $line = <errlog>) {
  chomp $line;
  next unless ($linenum = $lastline);
  next unless ($line =~ /Login succeeded/);
  my ($date,$time,$username)=(split(' ',$line))[0,1,6];
  $user_login{$username}="$date $time";
  ++linenum;
}

for my $record(sort keys %user_login) {
  print "$record logged in at $user_login{$record}\n";
}

print "line number is $linenum\n";