for my $i (2..3) {
    for my $line (0..4**$i) {