#!/usr/bin/perl

use strict;
use warnings;

my @array;
my $number = "3\n"; 

push @array, sprintf "%.5f", "$number\n";

print $array [0], "\n";

__END__
3.00000