#!/usr/local/bin/perl
say for sort { rand >= 0.5 } qw/a b c/