use v5.10;
( $RB1, $RB2, $WR1, $WR2, $TE1 ) = (1,2, 3, "05", 5);

if( keys %{ { map{ $_,$_ } $RB1, $RB2, $WR1, $WR2, $TE1 } } == 5 ) { 
    say 'all different';
} 
else { 
    say 'some same' 
};;

prints "all different"