[...]
    print left($matrix[0],90).left($matrix[1],90).left($matrix[2],90), "\n";
    # und zum Beweis das die Leerstellen weg sind
    #print "BEWEIS\n";
    print "$matrix[0];$matrix[1];$matrix[2]\n";

    [...]