foreach ($r, $f, $verfuegbar) {

	$_ = reverse sprintf "%.0f", $_;
	$_ =~ s/(\d\d\d)(?=\d)(?!\d*\,)/$1./g;
	$_ = reverse $_;

}