while(<DATA>){
  my ($text,$values) = split ;
 print "$text $_\n" for  split /\,/,$values;

  
}

__DATA__
vlan 107
vlan 121
vlan 122,127,129,137
hello 678,123,456