# save all stored data if we see dashes line my $program = $hash->{Program} || ''; my $com_code = $hash->{JIRA} || $hash->{QA} || $hash->{DEV} || ''; if ( $program && $com_code ) { push @{ $data->{ $program }{ $com_code }}, $hash; $hash = {}; }