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