@liste = ($r,$f,$verfuegbar);

foreach (@liste) {

	$_ = sprintf ("%.0f", $_);

	$_ = reverse($_);
	$_ =~ s/(\d\d\d)(?=\d)(?!\d*\,)/$1./g;
	$_ = reverse($_);

}

## können die folgenden Zeilen komfortabler geschrieben werden?

$r = $liste[0];
$f = $liste[1];
$verfuegbar = $liste[2];