foreach my $c1 ( 0.. $#data ){
  print $data[$c1]{value} . "\n";
}
foreach ( 0.. $#data ){
  print $data[$_]{value} . "\n";
}
print $data[$_]{value} . "\n" for 0 .. $#data;
print $_{value} . "\n" for @data;
print map { $_{value} . "\n" } @data;