#!/usr/local/bin/perl
use strict;
use warnings;
my ($userinput1, $userinput2);
$userinput1 = <STDIN>;  #first name
$userinput2 = <STDIN>;  #last name
print "Hello ${userinput1}_$userinput2";

##</code><code>##

#!/usr/local/bin/perl
use strict;
use warnings;
my ($userinput1, $userinput2);
chomp($userinput1 = <STDIN>);  #first name
chomp($userinput2 = <STDIN>);  #last name
print "Hello ${userinput1}_$userinput2";