use strict;
use warnings;
use Getopt::Long;

my @list;

my $getoptresult = GetOptions('list=s{2}' => \@list);

foreach my $item (@list) {print "$item\n";}