print "give me a number\n";
my $nr1 = <>;
chomp $nr1;

print "give me a number\n";
my $nr2 = <>;
chomp $nr2;

print "give me a number\n";
my $nr3 ...