Language Basics Perl

chop ($input = 123);
print $input;
chop ($input = <>);
print $input;