for my $x (@a) {
	print; # 1 tab
    print;     # 4 blanks
}