$fh = *DATA;

my $results = $app->process();

is ( $results->{item1}, "result1", "process item1" );

__DATA__
item1,data1
item2,data2
item3,data3

##</code><code>##

use vars qw($fh);

sub process {

    my ($self) = @_;

    my $reslts = {};

    while (<$fh>) {
        [do stuff]
        $results->{$key} = $result;
    }

    return $results;
}