#! /usr/bin/perl -wl

my @input = qw( 3335.9999999999995 3336.0000000000000 );
my @nums = map 0+$_, @input;

sub uniq_count { int keys %{{map {$_ => 1} @_}} }

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