sub extract_data_from_csv_line
{ my $Line           = $_[0];
  my $DataAoHRef     = $_[1];
  my @Content;
  my $i;

 my @Content = split(/,/, $Line);
 push ${$DataAoHRef}, { FirstName => $Content[0] , FamName => $Content[1], Age => $Content[2] };
 return();
}

my $Line = "John,Malcovitz,35";
extract_data_from_csv_line($Line, \@$Line);