sub get_new_numbers{
  my $anzahl = shift;
  my $last_sn = shift;

  # Seriennummer zerlegen
  my ($num,$str) = split(/(<=\d)(?=[A-Z])/,$last_sn);

  # Seriennummer inkrementieren und in Array schreiben
  my @back_array;
  push @back_array, $num.(++$str) foreach(1..$anzahl);

  return @back_array;
}