my @array = qw/
    .1.3.6.1.4.1.9.9.46.1.3.1.1.2.1.1:INTEGER:1
    .1.3.6.1.4.1.9.9.46.1.3.1.1.2.1.2:INTEGER:1
    .1.3.6.1.4.1.9.9.46.1.3.1.1.2.1.10:INTEGER:1
    .1.3.6.1.4.1.9.9.46.1.3.1.1.2.1.1002:INTEGER:1
    .1.3.6.1.4.1.9.9.46.1.3.1.1.2.1.1003:INTEGER:1
/;

my @vlans = map {m/\.(\d+):/ ? $1 : undef} @array;