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";
}