# modulo accounts

#!/usr/bin/perl

use strict;
use warnings;

my $file = "test.txt";
				    
my $accounts = account(
			file => $file,
		      );

results(
	data => $accounts,
	);


sub account {

...

return \@account;

}



sub results {

...
my $results = \@data;

return $results;

}

1;

##</code><code>##

# script
account.pl

#!/usr/bin/perl


use strict;
use warnings;
use Data::Dumper;

use accounts;

my $newdata = results();

print Dumper $newdata;