For every value you have

1. IF the current value is greater than the biggest one you've seen so far, 
     THEN it's the new biggest one you've seen.
2. IF the current value is lower than the lowest value you've seen, 
     THEN it's the new lowest one you've seen

##</code><code>##

perl -e 'print "How sweet does a rose smell? "; chomp ($n = <STDIN>); $rose = "smells sweet to degree $n"; *other_name = *rose; print "$other_name\n"'