my @twice = do {
    my %a;
    map {my $a = $_; map {$a{$_}{$a}++} @$a} \@a1, \@a2, \@a3;
    grep {2 == keys %{$a{$_}}} keys %a;
};