my @list = ( "a" .. "z" );
while ( @list )
{
    print splice(@list,rand(@list),1), $/;
}