use strict; 
use warnings; 
 
my %result_hash = (); 
my %final_hash  = (); 
Compareresults(); 
 
foreach my $key (sort keys %result_hash ){ 
   print "$key \n"; 
   print "$result_hash{$key} \n"; 
   #split the value of result_hash{$key}  again by , and see whether any chunk is seperated by ; 
   #example : 7802315095\d\d,7802315098\d\d;7802025001\d\d,7802025002\d\d,7802025003\d\d,7802025004\d\d,7802025005\d\d,7802025006\d\d,7802025007\d\d 
   #every chunk without ; and value on left  with ; should be stored here   
  @{$final_hash{"eto"} }= ['7802315095\d\d','7802315098\d\d','7802025002\d\d','7802025003\d\d','7802025004\d\d','7802025005\d\d','7802025006\d\d','7802025007\d\d'] ; 
  @{ $final_hash{"pro"} } = ['7802025001\d\d'] ; #Anything found on the right side of ; has to be stored in this hash 
} 
sub Compareresults 
{ 
  
  while ( <DATA> ) 
  { 
    my($instance,$values) = split /\:/, $_; 
    $result_hash{$instance} = $values; 
 
   } 
} 
__DATA__ 
1:7802315095\d\d,7802315098\d\d;7802025001\d\d,7802025002\d\d,7802025003\d\d,7802025004\d\d,7802025005\d\d,7802025006\d\d,7802025007\d\d 
2:7802315095\d\d,7802025002\d\d,7802025003\d\d,7802025004\d\d,7802025005\d\d,7802025006\d\d,7802025007\d\d