tarfiles( \@obj );
#...
sub tarfiles {
    my( $objlist ) = @_;
    #...