use strict;
use warnings;

use Data::Dumper;

my @fields=('age','company','call','address','country');
my @emp=('riya','vinoth');

my @array=(
'name riya',
'age 34',
'company xxxx',
'name vinoth',
'age 25',
'call 12345678',
'company xxxx',
'address asdd',
'country Ind');

my $details = join(',',@array);
print "$details\n";
foreach my $name (@emp)
{
    my %hash=();
    $hash{'name'}=$name;
    foreach my $field (@fields){
        if ($field eq 'name'){
            if ($details =~/name\s*$name.*?,$field\s*(\S+),/g)
            {
             $hash{$field}=$1;
            }
            else{
             $hash{$field}='';
            }
         }
        elsif($field eq 'age'){
            if ($details =~/name\s*$name.*?,$field\s*(\d+),/g)
            {
             $hash{$field}=$1;
            }
            else{
             $hash{$field}='';
            }

        }
        elsif($field eq 'company'){
            if ($details =~/name\s*$name.*?,$field\s*(\S+),/g)
            {
             $hash{$field}=$1;
            }
            else{
             $hash{$field}='';
            }

        }
        elsif($field eq 'call'){
            if ($details =~/name\s*$name.*?,$field\s*(\d+),/g)
            {
             $hash{$field}=$1;
            }
            else{
             $hash{$field}='';
            }
        }
        elsif($field eq 'country'){
            print "$field\n";
            if ($details =~/name\s*$name.*?,$field\s*(\S+),/g)
            {
             $hash{$field}=$1;
            }
            else{
             $hash{$field}='';
            }
        }
        elsif($field eq 'address'){
            print "$field\n";
            if ($details =~/name\s*$name.*?,$field\s*(\S+),/g)
            {
             $hash{$field}=$1;
            }
            else{
             $hash{$field}='';
            }

        }
   }

print Dumper \%hash;
}