my @one = ( 1234, 5678, 9012 ); my @two = ( 1234, 7891, 9001, 9002 ); my $bad = 5678;