{
opendir my $dir, "." or die;
@l= grep /\.tbz\z/, readdir $dir;
}; 
print $_, $/ for @l;