#!/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";