print "@array\nExtra params: @ARGV";

##</code><code>##

  perl  <program>  --prueba2 1  -prueba2  2 --prueba2 3

##</code><code>##

GetOptions ( 
            "prueba2=i{3}" => \@array,
           ) or die "not working: $!\n";