use strict;
use warnings;
use autodie;

my $file = '1977_SoPW.txt';

open(my $fh, '<:raw', $file);
my @test = <$fh>;
close $fh;

for my $line (@test)
{
    print ord(substr($line, -2, 1)), "\t";
    print ord(substr($line, -1, 1)), "\n";
}

print "\n";