my $a = qw(0,100);
print $a, "\n";  # prints the string '0,100'