...
foreach my $dir ( @ARGV ) {
  unless ( -d $dir ) {
    warn("$dir: not a directory -- skipped\n");
    next;
  }
  ...

  my @files = sort map { $1 if /([^\/]+)\.mp3$/ } glob("$dir/[0-9]*.mp3");