#!/usr/bin/perl
use Tk;
use strict;
my @a = map $_->[0], sort {$a->[1] <=> $b->[1]} map [$_, rand], 0..15;
my ($mw, $hole) = new MainWindow;
sub xy { -row => $_[0] % 4, -column => int $_[0] / 4 }
for my $ii (0..15) {
  my ($num, $i, $but) = ($a[$ii], $ii);
  $hole = $i, next unless $num;
  $but = $mw->Button(-text => $num, -width => 2, -height => 2, -command
    => sub { $but->grid(xy(($i,$hole) = ($hole,$i))) if abs $i - $hole
    == 4 or abs $i - $hole == 1 and int $i/4 == int $hole/4
    })->grid(xy $i);
  }
MainLoop;