use warnings;
use strict;

my ($userinput1, $userinput2);
$userinput1 = <STDIN>;  #first name
chomp $userinput1;
$userinput2 = <STDIN>;  #last name
print "Hello $userinput1", '_', $userinput2;