Tickets for Sport Events in Perl