Select Code to Download

my $list = "2-4,10-12";

$list =~ s/\-/../g;
my @array = eval( $list );

# @array is now (2,3,4,10,11,12)

my @array = (2,3,4,10,11,12);

my @vlans = ();
...
my $list = join(',', @vlans);

# $list is now "2-4,10-12" again