package accounts;
use strict;
use warnings;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(results);

sub account {
    my $file = shift;
    open my $fh, '<', $file or die $!;
    my @accounts = <$fh>;
    close $fh;
    chomp @accounts;
    return \@accounts;
}
sub results {
    my $file = shift;
    my $results = account($file);
    return $results;
}
1;


##</code><code>##

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

use lib '.';
use accounts qw(results);

my $file = "accounts.txt";

my $newdata = results($file);

print Dumper $newdata;

##</code><code>##

a
b
c
d
e

##</code><code>##

$VAR1 = [
          'a',
          'b',
          'c',
          'd',
          'e'
        ];