while(<IN>)
{
my ($key) = /^(interface Vlan[\d]*)/;
next if $key =~ /^\s ip address \d*\.\d*\.\d*\.\d* \d*\.\d*\.\d*\.\d*/;
# next if $key =~ /^\s*$/;
my ($value) = /^interface Vlan([\d]*)/;
$hash1{$key} = $value ;
}