foreach $INFO (qw/BUTTON1 BUTTON2 BUTTON3/){
   $INFO = $mainwindow->Button(-text => $INFO)->pack();
}