use warnings;
use strict;

my @lines;

while (<DATA>) {
    chomp;
    push @lines, [unpack ("(a2)*", $_)];
}

__DATA__
0912203749
0725284648
0608294149
0622424347
1219303436
1729313449
1015162331