use strict;
my $line;
my @array;

# Open the errorlog file
open(errlog,"/opt/sybase/logs/errorlog_SERVER1") or die "Can't open errorlog file!";

# Open th eoutput file
open(loginf,">/tmp/login.dat");

while ($line = <errlog>) {
chomp $line;
next unless ($line =~ /Login succeeded/);
push @array, $line;
}

foreach (@array) {
   print "$array[7]\n";
}

close errlog;
close loginf;