use strict;
use warnings;
use Data::Dumper;
use Tie::File;

my @array;

tie @array,'Tie::File',$ARGV[0];
$array[-1]= qq(<xxxx.xxx.xxx.xxx, "xxx", xx_$ARGV[0], xxx="">);
print Dumper(\@array);
[download]