my (@col1, @col2, @col3);
my $i=0;
while (<FOO>) {
    ($col1[$i],$col2[$i],$col3[$i])=unpack("A1 A4 A8",$_);
    $i++;
}