#!/usr/bin/perl -w

use strict;

foreach (360000, 12725, 80000) {
  print "$_ = ".msaccess($_)."\n";
}

sub msaccess {
  my ($num) = @_;
  $num += 0;
  while ($num =~ s/(\d)(\d{3})\b/$1.$2/) {};
  return "$num,00";
}