#! /usr/bin/perl

#chomp(@strings = <STDIN>);
chomp(@strings = <>);
print "List of strings:\n";
foreach (@strings) {
    printf "%s\n", $_;
}