#! /usr/local/bin/perl

use strict;
use warnings;

# Setup the situation

my $string = "BEHACJBDLCENADFEGOFHQAGIHJRBIKJLSCKMLNTDMOFNPOQTGPRIQSKRTMPS";
my ($i, $j, @array, @result);

# Perform the task

@array = split //, $string;

for $i (1..20) {
    for $j (1..3) {
        $result[$i][$j] = ord(shift(@array)) - 64;
    }
}

# Print the results

for $i (1..20) {
    for $j (1..3) {
        print sprintf("%02d", $result[$i][$j]) . " ";
    }
    print "\n";
}