$randword = join'', ('A'..'Z')[ map rand 26, 1..8 ];;
print $randword;;
LDAZAJSA

chomp( $input = <STDIN> );;
AAADJLSZ

print join('', sort split '', $randword ) eq join( '', sort split '', $input ) ? 'Ok' : 'Bad';;
Ok