Help for this page
print "@array\nExtra params: @ARGV";
perl <program> --prueba2 1 -prueba2 2 --prueba2 3
GetOptions ( "prueba2=i{3}" => \@array, ) or die "not working: $!\n";