my @sportlist = qw('campus relay ' 'Archery' 'Badminton' 'Basketball' 'Cricket' 'Football' 'Hockey' 'Netball' 'Rugby' 'Snooker' 'Squash' 'Swimming' 'Table Tennis' 'Tennis' 'Tug of War' 'Volleyball');