use Data::Dumper;
    $Data::Dumper::Terse  = 1;
    $Data::Dumper::Indent = 0;

    print Dumper( array_to_nested_hash(1..5) ), "\n";
    # {'1' => {'2' => {'3' => {'4' => {'5' => undef}}}}}