my $n=34.57889;
my $na=substr($n,0,index($n,'.') + 1 + 3);
print "$n $na\n";
__END__
34.57889 34.578