perl -e 'print -A $ARGV[0],$/' test.dat