#!/usr/bin/env perl

use strict;
use warnings;
use List::Util 'sum';

my @nums = ( 5, 10, 15, 20, 25 );

my $totalSum = sum @nums;

my @array = map { $_ / $totalSum } @nums;

print "The required numbers are: @array";