use warnings;
use strict;
use Archive::Tar;
use Data::Dumper; 
$Data::Dumper::Sortkeys=1; 

my @properties = qw(name size mtime);
my $location = "xxx.tar";
my @files = Archive::Tar->list_archive($location, 0, \@properties);
print Dumper(\@files);