#!/usr/bin/perl -w
use strict;
use Symbol;

my $sym = gensym;
open($sym, 'file1') || die "Can't $!";
while(readline($sym)){
    print;
}

##</code><code>##

_________________________________________________________________
[  3349] By: gsar                         on 1999/05/09  20:23:07
        Log: allow readline($globref), <$globref> already works
     Branch: perl
           ! pp_hot.c


##</code><code>##

    readline(${$sym})
    readline(*{$sym})

or in your particular case:

    readline(*{$data[$i]->{FH}})


##</code><code>##

# change this:
print $_, ' 'x($data[$i]->{w}-1-length);

# to this:
print $_, ' 'x($data[$i]->{w}-1-length(expand($_)));