#! perl -lsw use strict; use Tie::File; tie my @array, 'Tie::File', 'array.file'; push @array, @ARGV; print for @array; __END__ P:\test>333115 the quick brown fox the quick brown fox P:\test>333115 the sixth sick shiek's sixth sheep was sick the quick brown fox the sixth sick shiek's sixth sheep was sick