@list = <*.tar>;

##</code><code>##

foreach $file (@list) {
    use Archive::Tar;
    $tar = Archive::Tar->new;
    $tar->read( $file );
    $tar->extract();
    
}