#!/usr/bin/perl

my %data = ( lots of data );
foreach (keys %data) {
  $main::blah->calc($_);
}

exit;