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