Select Code to Download

$table->put($displacedButton->{'row'},$displacedButton->'col'},$displa
+cedButton->cget(-text));

use warnings;
use strict;
...
    $buttons[$selectedButton]{'col'} = $mCol;
    print "Row:$mRow : Col: $mCol\n";
}