use strict;

my @a=qw( 1.0.1 );#1.0.0 2.3.0 0.2 2.3);
my %hash=();
my $x={};
foreach my $str(@a){
        my @split=split(/\./,$str);
        $x = \%hash; $x = $x->{$_} for @split;
        print Dumper($x);

}
~