This seems to work.

use strict;
#use warnings;
#use diagnostics;

use Tk; 

my $mw = MainWindow->new;  
$mw->title( 'Albums' ); 

   open my $FILE, "<Album_Names", or die "Can't open file: $!"; 

my @lines = <$FILE>; 
my $NumberOfAlbums = scalar @lines; 
   print "You have $NumberOfAlbums albums.\n"; 

close( $FILE ) or die "Cannot close file: $!"; 

my $i = 0;
my @Selected;
foreach my $n ( @lines ) {
   $mw->Checkbutton( -text => "$n", 
             -onvalue => $n,
                    -offvalue => 0,
             -variable => \$Selected[$i], )->pack(-side => 'top', -anc
+hor => 'nw' ); 
   $i=$i+1;
 }

my $GetAlbumsButtons = $mw->Button( -text => "Get Albums",
                    -command => \&value, )->pack(  -side => 'bottom', 
+-anchor => 's' ); 

sub value {
for my $x ( @Selected ) {
   ## Regex is a test to see if it works.
   if( $x ne 0 && $x =~ m/LINUX/ ) {
   print "$x";
   }
 } print "\n";
};

MainLoop;
[download]

#########################################################################
How can I print the values of the check buttons selected?

use strict;
use warnings;

use Tk; 

my $mw = MainWindow->new;  
$mw->title( 'Albums' ); 

my @Buttons;
   open my $FILE, "<Album_Names", or die "Can't open file: $!"; 

my @lines = <$FILE>; 
my $NumberOfAlbums = scalar @lines; 
   print "You have $NumberOfAlbums albums.\n"; 

close( $FILE ) or die "Cannot close file: $!"; 

my $i = 0;
my @Selected; 
foreach my $n ( @lines ) {
   push( my @Values, $mw->Checkbutton( -text => "$n", 
                       -variable => \$Selected[$i], )->pack(-side => '
+top', -anchor => 'nw' ) ); 
   $i=$i+1;
 }

my $GetAlbumsButtons = $mw->Button( -text => "Get Albums",
                    -command => sub { print "Get Albums Button Pressed
+.\n"; }, )->pack(  -side => 'bottom', -anchor => 's' ); 

MainLoop;
[download]

The file Album_Names contains the following lines =>

Mobile Uploads 
Timeline Photos 
Untitled Album 
LINUX 
Cover Photos 
5k Races 2013 
Dirt bike Races 2013 
Profile Pictures
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.