Perl で STDINに複数行読み込ませる方法

STDIN.pl

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

my $n = "\n";
my @lines = <STDIN>;
chomp @lines;
print $n;
my @array = reverse @lines;

print "input data: ";
print "$_ " for (@lines);
print $n x 2; # x はエックス

print "reversed data: ";
print "$_ " for (@array);

初めてのPerlを読んで、基礎を最初からやってるんだけど、学べることってまだまだ多いね