perl 로 파일 내 문자열 행 열 변환 방법좀 알려주셔요

windyguy81의 이미지

ex)1 2 3 4 5 6
7 8 9 10 11 12

이런식의 파일을

결과)1 7
2 8
3 9
4 10
5 11
6 12
이렇게 만들려고 하는데 어떻게 하면 될까요 퓨

amorette의 이미지

perl -nae 'map { push @{$H{$_}}, @F[$_] } 0..$#F }{ print "@{$H{$_}}\n" for sort keys %H' <파일명>