Ticket Swapping solutions

Ticket Swapping was solved using Perl by 4 contestants. Solution sizes: average 4464 bytes (shortest: 2107; longest: 9501).