@results = eval {
    my @r;
    foreach (@data) {
        $_ = $_ * 13;
        push(@r);
    }
    return(@r);
}