my $tie = " \t"x8;