my @select;
for $i (@join) {
  push @select,$i if ($i->[0] eq $i->[3]) and ($i->[1] eq "Joe");
}