my $mw = MainWindow->new(); $frame1 = $mw->Frame; $frame1->Label(-text => "Data saved at:")-> pack(); for (@info) { $frame1->Label(-text => $_)-> pack(); } $frame2 = $mw->Frame(-borderwidth => 2, -relief => 'groove'); $frame2->Label(-text => "Data to Restore:")-> pack(); $frame2->Label(-text => "Point Saved Current")-> pack(); $frame2->Label(-text => $arrays->[0][0])-> pack(); $frame2->Label(-text => $arrays->[1][0])-> pack(); $frame2->Label(-text => $arrays->[2][0])-> pack(); $frame2->Label(-text => $arrays->[3][0])-> pack(); $frame2->Button(-text => "Restore", -command => \&restore_data)-> pack(); $frame2->Button(-text => "Cancel", - command => sub { exit})-> pack(); $mw->title("Data Restore"); MainLoop;