my $ramping = 57000 - 9029;
my $step = int( $ramping / 72 );
my $leftovers = $ramping - ( $step * 72 );

my $tiedObj = tie my @levels, 'Tie::Array::CountReads';

@levels = (
    ( 68 ) x 9029,
    map( (( $_ ) x $step ), reverse 0 .. 71 ),
    (0) x $leftovers
);