#!/usr/bin/perl
use strict;
use warnings;
use File::Basename;

my $suffix = '.a00';

my @dateien = glob("*$suffix");
my @ohneendung;
for my $datei (@dateien) {
    my $name = basename($datei,$suffix);
    print "$name\n";
    push(@ohneendung,$name);
}

# mache hier etwas mit @ohneendung