my %interfaces;

while (<DATA>) {
    if (/interface Vlan(\d+)/) {
        next if $1 == 1;
        $interfaces{"Vlan$1"} = $1;
    }
}

print Dumper(\%interfaces);
[download]

...gives the result that you say that you want. Although I have a sneaky suspicion that this is not all that you want ;)