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;