#!/usr/bin/perl -w use strict; @ARGV = reverse @ARGV; while (<>) { chomp; print "\n@_\n"; }