#!/usr/bin/perl -w
use strict;
use warnings;

my %piles = (A => [reverse 1..3], B => [], C => []);

dumpPiles ();
hanoi (scalar @{$piles{A}}, keys %piles);

sub hanoi {
   my ($n, $start, $end, $extra) = @_;
   
   dumpStack ();
   
   if ($n == 1) {
        report ($start, $end);
   } else {
        hanoi($n-1, $start, $extra, $end);
        report ($start, $end);
        hanoi($n-1, $extra, $end, $start);
   }
   
   print "Exiting<\n";
}

sub report {
    my ($start, $end) = @_;
    my $disk = pop @{$piles{$start}};

    print "Moved disk $disk from $start to $end.\n";
    push @{$piles{$end}}, $disk;
    dumpPiles ();
}

sub dumpPiles {
    for my $pile (sort keys %piles) {
        print "$pile: @{$piles{$pile}}\n";
    }
    print "\n";
}

sub dumpStack {
    my $index = 1; # Don't care where dumpStack was called so start at 1
    my @stack;
    
    while ((my @params) = caller $index++) {
        unshift @stack, $params[2];
    }
    
    print "Entered> @stack\n";
}