Select Code to Download

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

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