Perl – Lange Zahlen mit Tausender Trennpunkten versehen

#!/usr/bin/perl

#Fehlerausgabe an Browser
use CGI::Carp qw(fatalsToBrowser);
use strict;
print "Content-type: text/html\n\n";

# Das Zahlenarray, ohne Tausender Trennpunkte
my @zahlen = (
"1054000987,87577655", 
"4322000987,18845",
"62000987,18",
"7792000987,456"
);

my $ausgabe = '';
foreach my $anzahl (@zahlen) {
print $ausgabe = wandler($anzahl) ."<br>n";
}

# Die Subroutine zum einsetzen der Tausender Trennpunkte
sub wandler {
my $zahl = shift;
my $text = reverse $zahl;
$text =~ s/(\d\d\d)(?=\d)(?!\d*\,)/$1./g;
return scalar reverse $text;
}