vlan 107
 vlan 121
 vlan 122,127,129,137 

##</code><code>##

 
 vlan 107
 vlan 121
 vlan 122
 vlan 127 
 vlan 129
 vlan 137

##</code><code>##

foreach my $element (@one)
{
     if ($element =~ m/^vlan \d*,\d*/g)
        {
	  print"$element";
        } 
}