• Super Search for histogram
• CPAN search...
• Text::Histogram
• Text::HistogramChart

Given that the input is a sequence of random numbers, you could synthesize your desired arrangement of bins directly with no loss of information:

use feature ":5.14";
use warnings FATAL => qw(all);
use strict;
use Data::Dump qw(dump pp);

sub bins($$$$)# Fill some bins
 {my ($start, $count, $width, $samples) = @_; # Start bin, number of b
+ins, bin width, number of samples
  my $bins;
  $bins->{$start+$width * int(rand $count)}++ for 1..$samples;
  $bins
 }

pp(bins(-2, 3, 2, 8));
[download]

Produces:

{ "-2" => 4, "0" => 1, "2" => 3 }

#---------------------------
## hi, I am a gnuplot script and you are probably trying to do in perl
+ my own job

set terminal png large size 1920,1200
set output 'output.png'
set style histogram
set title "my title"
set xlabel "my x varname"
set ylabel "my y varname"
set yrange [0:10]
set style fill solid border -1

binwidth=5
set boxwidth binwidth

bin(x,width)=width*floor(x/width) + binwidth/2.0

plot 'mydata.dat' using (bin($1,binwidth)):(1.0) smooth freq with boxe
+s 
#---------------------------
[download]

#!/usr/bin/perl -w
use strict ;
use POSIX ;

my %bin ;
my %size;
my %value ;
my $binwidth = $ARGV[0] ;

chomp(my $prog = `basename $0`) ;

if ($#ARGV < 0)
{
  print "\nUsage: ./histo.pl.pl <bin width>\n" ;
  exit ;
}



while ( <STDIN> ) {
   my @line= split  ;
   my $element = $line[0] ;
   $value{ceil(($element+1)/$binwidth)-1}++
}



foreach my $i (sort {$a<=>$b} keys %value)
{
   my $bin = $i*$binwidth ;
   print "$bin $value{$i}\n" ;
}
[download]