Getopt::Long's interface sucks imho. I'd solve this like this:

use Getopt::Attribute;

our @x : Getopt(x=s);
die "wrong number of arguments for -x!\n" if @x<1 or @x>4;
[download]