help with a function

[Lizzy78]

hello,

I have to complete the code with a function but I have problems doing it.
The function I have to write is sub getInfosBio but my code doesn't work. Can you help me? I must admit I'm not good at coding.

Thank you
Lizzy

use strict;
use warnings;

open( SOURCE1, '<', $ARGV[0] )
  or die("Impossible d'ouvrir le fichier $ARGV[0]\n");
my @data1 = <SOURCE1>;
close( SOURCE1 );

open( SOURCE2, '<', $ARGV[1] )
  or die("Impossible d'ouvrir le fichier $ARGV[1]\n");
my @data2 = <SOURCE2>;
close( SOURCE2 );

my $infos_bio = &getInfosBio(\@data1, \@data2);

print "NOM               : " . $infos_bio->{'nom'}            . "\n";
print "PRENOM            : " . $infos_bio->{'prenom'}         . "\n";
print "VILLE             : " . $infos_bio->{'ville'}          . "\n";
print "DATE DE NAISSANCE : " . $infos_bio->{'date_naissance'} . "\n";


sub getInfosBio {
  my ($ref_arg1, $ref_arg2) = @_;
 
  my @data1 = @{$ref_arg1};
  my @data2 = @{$ref_arg2};
  
 @data1 = split (/\t: /, @data1);
 @data2 = split (/\t: /, @data2);

  return;
}