@greater[n] = $_ ;

##</code><code>##

$greater[n] = $_ ;

##</code><code>##

chop ;