%lookup = map{ 2**$_ => $_ } 0 .. 63;;

$flags = 0;;

$flags |= 1<<(rand 64);;

print "The flag set is:", $lookup{ $flags };;
The flag set is: 12