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

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

my $file = "accounts.txt";

my $newdata = results($file);

print Dumper $newdata;