#!perl
use strict;
use Data::Dump 'pp';

my $bi->{customer}{domain}{host}{BACKUPDATA}=[
  { ENDDATE_SEC => 1 },
  { ENDDATE_SEC => 2 },
  { ENDDATE_SEC => 3 },
  { ENDDATE_SEC => 4 },
  { ENDDATE_SEC => 5 },
];
pp $bi;

for my $act (@{$bi->{customer}->{domain}->{host}->{BACKUPDATA}}){	
  print $act->{ENDDATE_SEC}."\n";
}