$ perl -Mstrict -Mwarnings -E '
    chomp(my @lsl = qx{ls -l | tail -3});
    chomp(my @lsi = qx{ls -i | tail -3});
    splice @lsi, 1, 1;
    my $lsi_index = 0;

    for (@lsl) {
        my $file = (split / /)[-1];

        my $pos = index $lsi[$lsi_index], $file;

        if ($pos == -1) {
            say "   N/A   ", $_;
        }
        else {
            say substr($lsi[$lsi_index++], 0, $pos), $_;
        }
    }
'
44060626 -rw-r--r--    1 ken  staff        0 10 Sep 15:02 zz1
   N/A   -rw-r--r--    1 ken  staff        0 10 Sep 15:02 zz2
44060628 -rw-r--r--    1 ken  staff        0 10 Sep 15:03 zz3

##</code><code>##

$ ls -l | tail -3; ls -i | tail -3
-rw-r--r--    1 ken  staff        0 10 Sep 15:02 zz1
-rw-r--r--    1 ken  staff        0 10 Sep 15:02 zz2
-rw-r--r--    1 ken  staff        0 10 Sep 15:03 zz3
44060626 zz1
44060627 zz2
44060628 zz3