gistfile1.pl

#!/usr/bin/env perl
use strict;
use warnings;

sub bucket_sort {
    my ($array, $range) = @_;
    my @bucket;
    push @{ $bucket[$_] ||= [] }, $_ for @$array;
    return [ map {@{$bucket[$_]}} grep {$bucket[$_]} (0..$range) ];
}