#!/usr/bin/perl

use strict;
use warnings;
use feature qw/say/;

use Data::Dumper;

my %hash = ();
my $hashref = \%hash;

for(1..255) {
    $hashref = $hashref->{$_} = {};
}

print Dumper \%hash;