use Archive::Tar;
my @properties = "name, size, mtime";
my ($location) = "/vol/archive5/test5.tar";
my %files = Archive::Tar->list_archive($location,,[\@properties]);
print Dumper \%files;

##</code><code>##

use Archive::Tar;
my ($location) = "/vol/archive5/test5.tar";
my %files = Archive::Tar->list_archive($location,,['size']);
foreach my $file (keys %files) {
   my $size = $files{$file}{'size'};
   print "$size\n";
}

##</code><code>##

use Archive::Tar;
my ($location) = "/vol/archive5/test5.tar";
my %files = Archive::Tar->list_archive($location,,['size']);
foreach my $file (keys %files) {
   my $size = @{ $files{$file}{'size'} };
   print "$size\n";
}