use strict;
use warnings;
use Test::More;


sub all_different {
  my %seen;

  for ( @_ ) {  return 0 if $seen{$_}++; }  #-- duplicate found
  return 1;
}


# e.g. if ( all_different($RB1, $RB2, $WR1, $WR2, $TE1) ) { ...

is( all_different( 1,2,3,4,5 ), 1 , "all different");
is( all_different( 1,1,3,4,5 ), 0 , "some duplicates");
is( all_different(),            1 , "empty paramlist");

done_testing;