#!/usr/bin/perl

use strict;
use warnings;

my @values = (
    12300
    , 123
    , 123000
);

my @suffixes = (
    'C'
    , 'B'
    , 'A'
);

for my $i (0..2) {
    $values[$i] = sprintf("%-12d",$values[$i]) . $suffixes[$i];
}

print "Mit Leerzeichen:\n";
print "$_\n" for sort {$a cmp $b} @values;

print "Mit Nullen:\n";

@values = map {$_ =~ s/ /0/gr} @values;

print "$_\n" for sort {$a cmp $b} @values;