my @data = ( { name => 'STR',
               dice => '3d6',
               modifier => sub { $_[0] + 2 }
             },
             { name => 'INT',
               dice => '3d6',
               modifier => sub { $_[0] - 5 }
             }
            );

foreach ( @data ) {
    $_->{ roll } = 
        &{ $_->{ modifier } }( RPG::Dice::roll( $_->{ dice } ) );
}