#!/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);
}