#!/usr/local/bin/perl

my $a=7.9999999;

chop $a;

print "$a \n";