#!/usr/bin/perl

use strict;
use warnings;

my $file = $ARGV[0];

my @iArray;
my @oArray;

open LOGFILE, "<", $file or die "Can't open my $file: $!";
while (<LOGFILE>) {
        my @line = split(/ /);
        if ($line[11] eq "o") {
            push(@oArray, $line[8]);
        }
        if ($line[11] eq "i") {
            push(@iArray, $line[8]);
        }
}
foreach (@oArray) {
    my $entry = $_;
    foreach (@iArray) {
        my $entry2 = $_;
        if ($entry2 eq $entry) {
            print "$entry\n";
            last;
        }
    }
}