File Perl

#!/usr/local/bin/perl 
unless (open(MYFILE, "file1")) { 
   die ("cannot open input file file1\n"); 

@input = 
print (@input);