sub stringRangeToList { 
  my $foo = shift; 
  $foo =~ s/-/../g; 
  return eval $foo;
}