my @Table; sub LoadTable { local( $/, $. ); my $position = tell( DATA ); @Table = map {chomp; hex} split ' ', ; seek DATA, $position, 0; # Reset the filehandle, rather then closing it. # Never close DATA. }