( $RB1, $RB2, $WR1, $WR2, $TE1 ) = map int( rand 10 ), 1 .. 5;;
print $RB1, $RB2, $WR1, $WR2, $TE1;;
3 5 5 8 7

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

( $RB1, $RB2, $WR1, $WR2, $TE1 ) = map int( rand 10 ), 1 .. 5;;
print $RB1, $RB2, $WR1, $WR2, $TE1;;
1 8 6 7 5

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