use Data::Dumper;  
    print Dumper($data);

##</code><code>##

$VAR1 = [
          '0.001915',
          '0.000000',
          '0.007453',
          '0.000000'
        ];

##</code><code>##

print $data[0];