print "age: "; my $age = ; chomp $age; print int(( ($age - 12) / 10 ) / 0.618), " cats";