use strict;
use warnings;

our $test = {
    first => {
        one => { number => 1 },
        two => { number => 2 },
        three => { number => 3 }
    },  
    second => {
        one => { number => 1 }, 
        two => { number => 2 }, 
        three => { number => 3 }
    },  
    third => {
        one => { number => 1 }, 
        two => { number => 2 }, 
        three => { number => 3 }
    }   
};  

my $input = <STDIN>;
$input =~ s/\n$//;

no strict 'refs';
my $dump = ${$input};
use strict 'refs';

use Data::Dumper;
print Dumper( $dump ), "\n";