r0adawg:

Check out perldoc -f split, ideal for splitting a string into a list of values:

my $text = "16, 17, 19, 22, 21, 22, 25, 28, 31, 35, 39";
my @values = split /,\s*/, $text;
[download]

...roboticus

When your only tool is a hammer, all problems look like your thumb.