use CGI qw(param);
...
my $source = param('source');
my @destination_states = param('dest'); # multi-select

##</code><code>##

use CGI qw(:all);