my( $n, $m, $o ) = shift; #### my ( $n ) = @_;