my %interfaces;

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

print Dumper(\%interfaces);