use strict;
my $data = [ '10010' ];
print @{ $data->[0][1] };

##</code><code>##

use Data::Dumper;
print Dumper($data);
print Dumper($data->[0]);