I'm trying to use printf to return a decimal value and I keep getting an error that says can't modify scalar in subroutine. If you have any info that'll be useful, by all means. . . Here's my script: ## start cycling through the chosen series foreach (@suppl) { ($name,$cents) = split(/~/,$supplh{$_}); $price = &decimal($cents); ## work with Building You Answer if (/ba/) { my $a=(<tr><td><b> my $b=$name my $c=</b></td>)(<td align=center><input type=hidden name=suppl$i.product value=\"Building Your Answer Activity Pages (Grades 2-4)\">Grades 2-4:</td>) my $d=(<td align=center><input type=text size=2 name=suppl$i.qty><input type=hidden name=suppl$i.price value=$cents></td>\n) printf "%3s %6d %20s %20s" my $a, my $b, my $c, my $d; $i++; $a=(td align=center><input type=hidden name=suppl$i.product value=\"Building Your Answer Activity Pages (Grades 5-12)\">Grades 5-12:</td>)(<td align=center><input type=text size=2 name=suppl$i.qty><input type=hidden name=suppl$i.price value=$cents></td>)(<TD align=right COLSPAN=8> $b=\$$price $c=<img src=\"/images/space.gif\" width=20></TD></TR>\n) printf "%3s %6d %20s" $a, $b, $c; $i++; next; } ==== Want to unsubscribe from this list? ==== Send mail with body "unsubscribe" to macperl-webcgi-request@macperl.org