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__