my @data = <LIBFILE>;
for (my $j=0; $j<=$#lib_file-1; $j++) {
    my $libline = $lib_file[$j];
    ... do stuff with $libline ...
}