my $allofit = buildData(\%Edina::SSR::Common::everything);

##</code><code>##

sub makeData {
  my @warns = ();
  local $SIG{__WARN__} = sub { push @warns, @_; };

  my $allofit = buildData(\%Edina::SSR::Common::everything);

  return ($allofit, \@warns);
}

##</code><code>##

my ($allofit, $error) = makeData();