Select Code to Download

use Data::Diver qw( DiveRef );

...
   my $ref = DiveRef( $data, map \$_, @keys );
   $$ref = [ split ' ', $val ];
}