#!/usr/bin/perl -w
use warnings;
use strict;

my $num1 = 5;

my $num2 = 10;

my $num3 = 15;

my $num4 = 20;

my $num5 = 25;

my $totalSum = $num1 + $num2 + $num3 + $num4 + $num5;

my @array = ($num1/$totalSum, $num2/$totalSum, $num3/$totalSum, $num4/$totalSum, $num5/$totalSum);

print "The required numbers are: @array";