use strict;
use warnings;

my @slow_day = ( 4, 1..4 );
my @busy_day = ( 12, 1..12 );

for my $report ( \@slow_day, \@busy_day ) {
    my ( $total, @sales ) = @{ $report };
    my $fmt = 'Total: $%2d Sales:' . ' $%.02f' x scalar(@sales);
    print sprintf($fmt, $total, @sales), "\n";
}

__END__

##</code><code>##

$ perl 1223893.pl

Total: $ 4 Sales: $1.00 $2.00 $3.00 $4.00
Total: $12 Sales: $1.00 $2.00 $3.00 $4.00 $5.00 $6.00 $7.00 $8.00 $9.00 $10.00 $11.00 $12.00

##</code><code>##

$ perl -Mstrict -wE 'say sprintf("%s", qw/two strings/);'