> perl -e 'use P;my @a=(1/3, 1/4, $x, 1/6, 1/7);     
P "%s", \@a;'   
[0.33, 0.25, (undef), 0.17, 0.14]