my $price = sprintf "£%d.%02d", $pounds, $pence;