#!/usr/bin/perl
use strict;
use warnings;

my $var='Hallo';

my $input=<STDIN>;
chomp($input);

$var.=" $input";

print "$var\n";