use Data::Dumper;
print Dumper(\@onefile);

##</code><code>##

rename $onefile, $onefile . '_1.txt' or die "Can not rename: $!";