#!perl
#use warnings;
use 5.010;

chomp(@array = <STDIN>);
print "It worked!!";