Here's a Perl program that takes N numbers and scales them such that their sum becomes 100, but their ratios remain the same.

Abigail

#!/usr/bin/perl

use strict;
use warnings 'all';

my $sum  = 0;
   $sum += $_ for @ARGV;

map {$_ *= 100 / $sum} @ARGV;

print "@ARGV\n";
[download]