#!/usr/bin/env perl
use strict;
use warnings;

# get a list of all CSV files in the piggybank directory
my @fnames = glob('piggybank/*.csv');

foreach my $fname (@fnames) {
    if(!-f $fname) {
        print STDERR "$fname is not a file!\n";
        next;
    }
    
    readAccount($fname);
}

sub readAccount {
    my ($fname) = @_;
    
    open(my $fh, "<", $fname) or die($!);
    foreach my $line (<$fh>) {
        chomp $line;
        
        print $fname, ': ', $line, "\n";
    }
    close $fh;
}