sub movedisks { #to make this move

##</code><code>##

  my( $num, $from, $to, $aux ) = @_;
  if( $num == 1 ) {
    ;
  } else {

##</code><code>##

    #you have to make those two moves first
    movedisks( $num-1, $from, $aux, $to );
    movedisks( $num-1, $aux, $to, $from );

##</code><code>##

  }
}