# look ma, no strict
for (1..4) {
    $price = $_;
}
print $price,$/
__END__
4