foreach my $thesebuttons (@aoa) {
  my @b = @$thesebuttons;
  foreach my $thisbutton (@b) {
    code for printing out this button...
  }
}