#!/usr/local/bin/perl unless (open(MYFILE, "file1")) { die ("cannot open input file file1\n"); } @input = <MYFILE>; print (@input);