perl -e 'my @a=(1/3, 1/4, 1/5, 1/6, 1/7);
print "[".join(", ",@a)."]\n"'
[0.333333333333333, 0.25, 0.2, 0.166666666666667, 0.142857142857143]
-----------
vs.
--------------
> perl -e 'use P;my @a=(1/3, 1/4, 1/5, 1/6, 1/7);
P "%s", \@a;'
[0.33, 0.25, 0.20, 0.17, 0.14]