Select Code to Download

#!/usr/bin/perl
use strict;
...
        }
        close $FH;
}

0  ARRAY(0x600500ae8)
   0  empty slot   # $x starts as 1, so no element for subscript 0
...
   75 ARRAY(0x6005.....)
      0  'line 1 file 75'
      2  ' ... etc.

print $id_files[$x][2];