...
my %wanted_user = map { $_ => 1 } qw{oracle sybase};

while (<DATA>) {
    my ($mode, $user, $jobid, $timestamp) = (split)[0, 1, 2, 7];
    next if not $wanted_user{$user};
    ...