hanoi.pl

#!/usr/bin/perl
use strict;
use 5.010;

hanoi(3, "A", "B", "C");

sub hanoi {
    my ($N, $FROM, $TO, $SPACE) = @_;
    if ($N == 1) {
	say "Move #$N from $FROM to $TO";
    }
    else {
	hanoi($N-1, $FROM, $SPACE, $TO);
	say "Move #$N from $FROM to $TO";
	hanoi($N-1, $SPACE, $TO, $FROM);
    }
}