my @prices = (99) x 300;
my $sum = 0;
for (@prices) {
    $sum += $_;
}
print $sum/100;
__END__
297