print every 4 columns to one row in perl or awk

would you please help me how to convert every 4-sequantial rows into one tab-separated column?

convert:

A
1
2
3
3
3
4
1

to :

A   1  2  3
3   3  4  1