sub format_num { my $s = sprintf('%5.2f', $_[0]); return length($s) > 5 ? 'XXXXX' : $s; }