use Data::Dumper;
my %each_record = ( );
my @store_all_data = ( );

foreach my $element (@record_time) {
  $each_record{'time'} = $element;
  printf "\$each_record{time} [%s]\n", Dumper(\$each_record{'time'});
  printf "\$each_record hash  [%s]\n", Dumper(\%each_record);
  push @store_all_data, \%each_record;
  printf "\@store_all_data    [%s]\n", Dumper(\@store_all_data);
}