Reply to thread

Message: [QUOTE="David K. Wall, post: 4785113"] Agreed. But I still might recommend looking at 'perldoc -q duplicate'. Here's another approach, which is what happens when the problem is not specified well: use strict; use warnings; my @nums = qw( 1207553365 1207553365 1207553365 1207553365 1207553365 1207553365 1207553365 1207553366 1207553365 ); my %hash; @hash{@nums} = (); # a little long-winded here, but I thought using ?: # might confuse the OP if ( 1 == keys %hash ) { print "All the same\n"; } else { print "At least one is different\n"; } [/QUOTE]