use strict;
use warnings;

my $obj = Foo->new();

my %hash;
my $counter=0;
my @methodcalls = qw (getExeName getTempName getData->getNameType);

for my $call (@methodcalls)
{
        my $evalstring = "\$obj->$call";
        $hash{"temp".$counter} = eval($evalstring);
        $counter++;
}

for (keys %hash)
{
        print "$_\t $hash{$_}\n";
}