$a = sprintf ("%-30s %-s\n", "the amount for Apple is ",34);
$b = sprintf ("%-30s %-s\n", "the amount for Lemons is", 7);