A program that reads data into an array and writes the array.
#!/usr/local/bin/perl @array = <STDIN>; print (@array);