use File::Slurp;
open ( my $file, '<', "file" );
binmode($file);

my @array = read_file ("pointers");

seek ( $file, 0x67, 0 );
print $file @array[0];

foreach ( my $line(@array){
    chomp ( $line );
    seek ( $file, 20, 0 );
    print ( $file $this );
}

##</code><code>##

21
4B
A8
C6