my %button;

for my $label (qw/BUTTON1 BUTTON2 BUTTON3/){
   $button{$label} = $mainwindow->Button(-text => $label)->pack();
}