use File::Basename;

my @namendavor =();
my @arry = glob('verz/*.a00');

for(@arry)
{
 ($name,$path,$suffix) = fileparse($fullname,@suffixlist)
 print "$name\n";
 push(@namendavor,$name);
}