Select Code to Download

#! /usr/bin/perl -wl

...
print "The numbers are:";
printf "    %.16e\n", $_ for @nums;
printf "A set of %d different value(s)\n", uniq_count(@nums);