$ cat data_eq_end.pl #!/usr/bin/perl use warnings; use strict; print for ; __END__ 1 2 3 $ perl data_eq_end.pl 1 2 3