[oracle@localhost ~]$ ls -1 *sql > files1.txt
[oracle@localhost ~]$ cat double.pl 
open(DAT,'files1.txt');
open(OUT,'>files2.txt');
while ( <DAT> ) {
   $line=$_;
   chop($line);
     print OUT "$line $line\n";
}
close DAT;
close OUT;
[oracle@localhost ~]$ perl double.pl 
[oracle@localhost ~]$ cat files2.txt
123.sql 123.sql
age1.sql age1.sql
age.sql age.sql
apxchpwd.sql apxchpwd.sql
a.sql a.sql
books.sql books.sql
bw.sql bw.sql
createViews.sql createViews.sql
date.sql date.sql
dblink.sql dblink.sql
ddl.sql ddl.sql
default.sql default.sql
error.sql error.sql
except.sql except.sql
fix.sql fix.sql
fk.sql fk.sql
line1.sql line1.sql
pk.sql pk.sql
procedure_name.sql procedure_name.sql
raw.sql raw.sql
reset_OE.sql reset_OE.sql
reset_xdbPorts.sql reset_xdbPorts.sql
role.sql role.sql
scott.sql scott.sql
seq.sql seq.sql
spoolit.sql spoolit.sql
sql1.sql sql1.sql
ssc.sql ssc.sql
team.sql team.sql
timings.sql timings.sql
utl_file.sql utl_file.sql
with.sql with.sql
[oracle@localhost ~]$