Select Code to Download

# Save input from STDIN into $file
my $file = <STDIN>;
...

# Print empty array @lines
print "@lines";

# Initialize array @lines
my @lines;
...

# Print array @lines after all processing has been done.
print @lines;