for my $file (<*.tgz>))
{
    $tar1->read($file);
    ...
}