foreach my $results (@$hash_of_excel){ for my $colname( sort keys %$results){ my @array = split /\|/,$results->{$colname}; foreach my $value (@array){ warn $results->{'col1'}, $results->{'col2'},$results->{'col3'}; last; } } last if $counter++ == 2; }