#!/usr/bin/perl -w
use strict;

package LuckyDraw;
use overload
    '<>' => sub {
        my $self = shift;
        splice @$self, rand @$self, 1;
    };
sub new {
    my $class = shift;
    bless [@_], $class;
}