my %ref;
my $threelinefakein = "...\n...";
fillRef( \%ref, \$threelinefakein );

my @fakes = ( "1\n2\n3", "1\n2\n3" );
for my $fake ( @fakes ){

   refLogic( \%ref, \$fake );
}