my @list = qw( a b c );
GetOptions ('list=s{,}' => \&list);

print Dumper \@list;

sub list {
    # action at a distance
    # modifies the file scoped @list array
    @list = split /,/, $_[1];
}