Select Code to Download

my @ordered;
while ( <DATA> ) {
  $ordered[$1] = $2 if /input datafile file number=(\d+) name=(\S+)/
...
channel ch3: starting piece 1 at 2011-05-31 02:00:07
channel ch1: finished piece 1 at 2011-05-31 02:34:54
#----------------8<----------------

1    /foo/oradata/bar/system01.dbf
2    /foo/oradata/bar/undotbs01.dbf
3    /foo/oradata/bar/tools01.dbf
...
8    /foo/oradata/bar/foodb-data01.dbf
9    /foo/oradata/bar/foodb-index01.dbf
10    /foo/oradata/bar/foodb-lob01.dbf