#!/usr/bin/perl
use Modern::Perl;
use strict;
use warnings;

print "input three numbers separated by spaces\n";
my $user_input = <>;
chomp $user_input;
my ($nr1) = $user_input, "$a";

chomp $user_input;
my ($nr2) = $user_input, "$b";

chomp $user_input;
my ($nr3) = $user_input, "$c";


print "The sum of the three numbers is equal to", ($a+$b+$c),"\n";