# 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;