Select Code to Download

@a = (1, 2, 3);

print @a;
print $a[0], $a[1], $a[2];  # equivalent to @a

@list = <INPUT_FILE>;
print OUTPUT_FILE @list;   # exact (textual) copy