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

my %num;

while ((keys %num) < 5) {

    $num{int(rand(50)+1)} = 1;
}

print join(' ' , keys %num) . "\n";

my @array = join(' ' , keys %num) . "\n";
my $sum = 0;

foreach my $var (@array) {
    $sum = $sum + $var;
}

print("The sum is: $sum\n");